Advertisement
Guest User

Untitled

a guest
Jun 17th, 2019
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.78 KB | None | 0 0
  1. [Run]
  2. Filename: {tmp}Setup.exe; Parameters: /ProductNames=product1,product2,etc...; Flags: shellexec WaitUntilTerminated; StatusMsg: Installing products...; Tasks: product1 and product2 and not product3 etc...
  3.  
  4. [Run]
  5. Filename: {tmp}Setup.exe; Parameters: /ProductNames={%var1}{%var2}; Flags: shellexec WaitUntilTerminated; StatusMsg: Installing products...;
  6.  
  7. [Code]
  8.  
  9. var
  10. product1: string;
  11. product2: string;
  12.  
  13. procedure TaskOnClickCheck(Sender: TObject);
  14. begin
  15. product1 := ''
  16. product2 := ''
  17.  
  18. if IsTaskSelected('product1') then
  19. begin
  20. product1 := ',product1 Name'
  21. end;
  22.  
  23. if IsTaskSelected('product2') then
  24. begin
  25. product2 := ',product2 Name'
  26. end;
  27.  
  28. end;
  29.  
  30. procedure InitializeWizard();
  31. begin
  32. WizardForm.TasksList.OnClickCheck := @TaskOnClickCheck;
  33. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement