${SegmentFile}

${SegmentPreExec}
#
# Code courtesy of Bart.S
#
    ${registry::Read} "HKEY_CURRENT_USER\Software\Ulduzsoft\kchmviewer" "recentFileList" $R0 $R1
    ${If} $R0 != ""
        ${WordReplace} $R0 "%PAL:LastDrive%" "%PAL:Drive%" "E+" $R2
        ${If} ${Errors}
            MessageBox MB_OK 'Errorlevel=$R2'
        ${Else}
            MessageBox MB_OK 'No errors'
        ${EndIf}

        ${registry::Write}  "HKEY_CURRENT_USER\Software\Ulduzsoft\kchmviewer" "recentFileList" $R2 $R1 $R3
    ${EndIf}
!macroend