${SegmentFile}

${SegmentPreExec}
#
# Code courtesy of Bart.S
#
	${registry::Read} "HKEY_CURRENT_USER\Software\Ulduzsoft\kchmviewer" "recentFileList" $R0 $R1
		MessageBox MB_OK 'Value=$R0'
		MessageBox MB_OK 'Type=$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" "$R0" "$R1" $R3
		MessageBox MB_OK 'Value=$R0'
	${EndIf}
!macroend