SHARE
TWEET

Untitled

a guest Jun 27th, 2019 67 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure CurStepChanged(CurStep: TSetupStep);
  2. begin
  3.    if CurStep = ssPostInstall then
  4.       if IsWindows8OrLater() then
  5.          MsgBox('Running on Windows 8 Or Later', mbInformation, MB_OK)
  6.          // 15 comands or call of W8-specific procedure goes here
  7.       else begin
  8.          MsgBox('Running on Windows 7', mbInformation, MB_OK);
  9.          // 15 comands or call of W7-specific procedure goes here
  10.       end;
  11. end;
  12.      
  13. #define Windows8AndNewer "MinVersion: 6.2"
  14. #define Windows7AndOlder "OnlyBelowVersion: 6.2"
  15.  
  16. [Run]
  17. Filename: "Windows8-Command1.exe"; {#Windows8AndNewer}
  18. Filename: "Windows8-Command2.exe"; {#Windows8AndNewer}
  19.  
  20. Filename: "Windows7-Command1.exe"; {#Windows7AndOlder}
  21. Filename: "Windows7-Command2.exe"; {#Windows7AndOlder}
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top