Advertisement
Guest User

Untitled

a guest
May 15th, 2014
36
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ${SegmentFile}
  2.  
  3. ${Segment.OnInit}
  4.     ; Borrowed the following from PAL 2.2, Remove on release of PAL 2.2
  5.         ; Work out if it's 64-bit or 32-bit
  6.     System::Call kernel32::GetCurrentProcess()i.s
  7.     System::Call kernel32::IsWow64Process(is,*i.r0)
  8.     ${If} $0 == 0
  9.         StrCpy $Bits 32
  10.     ${Else}
  11.         StrCpy $Bits 64
  12.     ${EndIf}
  13. !macroend
  14.  
  15. ${SegmentInit}
  16.     ${If} $Bits = 64
  17.         ${SetEnvironmentVariablesPath} FullAppDir $EXEDIR\App\PotPlayer64
  18.                 Rename "$EXEDIR\Data\PotPlayer.ini" "$EXEDIR\Data\PotPlayer64.ini"
  19.     ${Else}
  20.         ${SetEnvironmentVariablesPath} FullAppDir $EXEDIR\App\PotPlayer
  21.     ${EndIf}
  22. !macroend
  23.  
  24. ${SegmentPost}
  25.         ${If} $Bits == 64
  26.                 Rename "$EXEDIR\Data\PotPlayer64.ini" "$EXEDIR\Data\PotPlayer.ini"
  27.         ${EndIf}
  28. !macroend
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement