Advertisement
Guest User

Untitled

a guest
Jun 27th, 2019
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.74 KB | None | 0 0
  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}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement