Advertisement
GordCaswell

kchmviewerPortableCustomNSH

Sep 15th, 2011
311
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ${SegmentFile}
  2.  
  3. ${SegmentPreExec}
  4. #
  5. # Code courtesy of Bart.S
  6. #
  7.     ${registry::Read} "HKEY_CURRENT_USER\Software\Ulduzsoft\kchmviewer" "recentFileList" $R0 $R1
  8.     ${If} $R0 != ""
  9.         ${WordReplace} $R0 "%PAL:LastDrive%" "%PAL:Drive%" "E+" $R2
  10.     IfErrors 0 noerrors
  11.     MessageBox MB_OK 'Errorlevel=$R2' IDOK end
  12.  
  13.     noerrors:
  14.     MessageBox MB_OK 'No errors'
  15.     end:
  16.  
  17.     ${registry::Write}  "HKEY_CURRENT_USER\Software\Ulduzsoft\kchmviewer" "recentFileList" $R2 $R1 $R3
  18.     ${EndIf}
  19. !macroend
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement