SHARE
TWEET

Untitled

GordCaswell Sep 18th, 2011 156 Never
  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.                 MessageBox MB_OK 'Value=$R0'
  9.                 MessageBox MB_OK 'Type=$R1'
  10.         ${If} $R0 != ""
  11.                 ${WordReplace} $R0 "%PAL:LastDrive%" "%PAL:Drive%" "E+" $R2
  12.                 ${If} ${Errors}
  13.                         MessageBox MB_OK 'Errorlevel=$R2'
  14.                 ${Else}
  15.                         MessageBox MB_OK 'No errors'
  16.                 ${EndIf}
  17.                
  18.                 ${registry::Write}  "HKEY_CURRENT_USER\Software\Ulduzsoft\kchmviewer" "recentFileList" "$R0" "$R1" $R3
  19.                 MessageBox MB_OK 'Value=$R0'
  20.         ${EndIf}
  21. !macroend
RAW Paste Data
Top