Advertisement
the_Ma5TeR

My Full Inno Script

Nov 23rd, 2014
3,305
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;InnoSetupVersion=5.5.0
  2.  
  3. [Setup]
  4. AppName=Adobe Flash Player 15 + Shockwave Player 12 + Adobe Air 15 - AiO
  5. AppVersion=15.12.15
  6. AppPublisher=Adobe Systems, Inc.
  7. AppPublisherURL=www.adobe.com
  8. OutputBaseFilename=AdobeRuntimes_AiO_15.12.15_niTe.RiDeR
  9. Compression=lzma2/ultra64
  10. Uninstallable=no
  11. DisableProgramGroupPage=yes
  12. WizardImageFile=embedded\WizardImage.bmp
  13. LicenseFile=embedded\LicenseAgreement.rtf
  14. SolidCompression=yes
  15. InternalCompressLevel=ultra
  16. SetupIconFile=embedded\SetupIcon.ico
  17. WizardSmallImageFile=embedded\WizardSmallImage.bmp
  18. VersionInfoVersion=15.12.15
  19. VersionInfoCompany=Adobe Systems Incorporated
  20. VersionInfoDescription=Adobe Runtimes AiO (Adobe Shockwave Player v12.1.4.154 + Flash Player v15.0.0.223 + Adobe AIR) RePacked Setup
  21. VersionInfoProductName=Adobe Runtimes AiO
  22. VersionInfoProductVersion=15.12.15
  23. VersionInfoProductTextVersion=12.12.15
  24. CreateAppDir=False
  25.  
  26. [Files]
  27. Source: "{app}\install_flash_player_15_active_x.exe"; DestDir: "{tmp}"; Components: flashactivex; MinVersion: 0.0,5.01; Flags: deleteafterinstall
  28. Source: "{app}\install_flash_player_15_plugin.exe"; DestDir: "{tmp}"; Components: flashplugin; MinVersion: 0.0,5.01; Flags: deleteafterinstall
  29. Source: "{app}\sw_lic_full_installer.msi"; DestDir: "{tmp}"; Components: shockwave; MinVersion: 0.0,5.01; Flags: deleteafterinstall
  30. Source: "{app}\AdobeAIRInstaller.exe"; DestDir: "{tmp}"; Components: air; MinVersion: 0.0,5.01; Flags: deleteafterinstall
  31. Source: "embedded\ISWin7.dll"; DestDir: "{tmp}"; Flags: dontcopy nocompression
  32.  
  33. [Run]
  34. Filename: "{tmp}\install_flash_player_15_active_x.exe"; Parameters: "-install"; StatusMsg: "Installing Flash Player 15 ActiveX; Please wait..."; Components: flashactivex; MinVersion: 0.0,5.01;
  35. Filename: "{tmp}\install_flash_player_15_plugin.exe"; Parameters: "-install"; StatusMsg: "Installing Flash Player 15 Plugin; Please wait..."; Components: flashplugin; MinVersion: 0.0,5.01;
  36. Filename: "{tmp}\sw_lic_full_installer.msi"; Parameters: "/qn"; StatusMsg: "Installing Shockwave Player 12; Please wait..."; Components: shockwave; MinVersion: 0.0,5.01; Flags: shellexec
  37. Filename: "{tmp}\AdobeAIRInstaller.exe"; Parameters: "-silent"; StatusMsg: "Installing Adobe AIR 15; Please wait..."; Components: air; MinVersion: 0.0,5.01;
  38.  
  39. [Components]
  40. Name: "flashplugin"; Description: "Adobe Flash Player v15.0.0.223 Plugin"; Types: "compact full"; MinVersion: 0.0,5.01; ExtraDiskSpaceRequired: 10485760
  41. Name: "flashactivex"; Description: "Adobe Flash Player v15.0.0.223 ActiveX"; Types: "compact full"; MinVersion: 0.0,5.01; ExtraDiskSpaceRequired: 10485760
  42. Name: "shockwave"; Description: "Adobe Shockwave Player v12.1.4.154"; Types: "compact full"; MinVersion: 0.0,5.01; ExtraDiskSpaceRequired: 10485760
  43. Name: "air"; Description: "Adobe AIR v15.0.0.356"; Types: "full"; MinVersion: 0.0,5.01; ExtraDiskSpaceRequired: 10485760
  44.  
  45. [Messages]
  46. SelectComponentsLabel2=Select the runtimes you want to install; clear the runtimes you do not want to install. Click Next when you are ready to continue.
  47. WizardSelectComponents=Select Runtimes
  48. SelectComponentsDesc=Which runtimes should be installed?
  49.  
  50. [Code]
  51. { RedesignWizardFormBegin } // Don't remove this line!
  52. // Don't modify this section. It is generated automatically.
  53. var
  54.   ISCustomPage2: TWizardPage;
  55.   ISCustomPage3: TWizardPage;
  56.   ISCustomPage1: TWizardPage;
  57.   ISCustomPage4: TWizardPage;
  58.   Label1: TLabel;
  59.   Label2: TLabel;
  60.   Label3: TLabel;
  61.   Label4: TLabel;
  62.   Label5: TLabel;
  63.   Label6: TLabel;
  64.   Label7: TLabel;
  65.  
  66. procedure RedesignWizardForm;
  67. begin
  68.   { Creates custom wizard page }
  69.   ISCustomPage4 := CreateCustomPage(wpWelcome, 'Description', 'A Description of the Runtimes (Components)');
  70.  
  71.   with WizardForm do
  72.   begin
  73.     AutoScroll := False;
  74.     ClientHeight := ScaleY(363);
  75.     ClientWidth := ScaleX(490);
  76.     Caption := 'Setup - Adobe Runtimes AiO RePack';
  77.   end;
  78.  
  79.   with WizardForm.CancelButton do
  80.   begin
  81.     Left := ScaleX(404);
  82.   end;
  83.  
  84.   with WizardForm.NextButton do
  85.   begin
  86.     Left := ScaleX(319);
  87.   end;
  88.  
  89.   with WizardForm.BackButton do
  90.   begin
  91.     Left := ScaleX(244);
  92.   end;
  93.  
  94.   with WizardForm.WizardBitmapImage do
  95.   begin
  96.     Width := ScaleX(180);
  97.   end;
  98.  
  99.   with WizardForm.WelcomeLabel2 do
  100.   begin
  101.     Caption := 'This AiO RePack will install Adobe Flash Player v15.0.0.223 + Shockwave Player v12.1.4.154 + Adobe AIR v15.0.0.356 on your computer.' + #13#10 +
  102.          '' + #13#10 +
  103.          'It is strongly recommended to close other web browsers.' + #13#10 +
  104.          'You can choose which runtimes to install.' + #13#10 +
  105.          '' + #13#10 +
  106.          'Click Next to continue, or Cancel to exit Setup.';
  107.     Left := ScaleX(184);
  108.     Top := ScaleY(94);
  109.     Width := ScaleX(293);
  110.     Height := ScaleY(212)
  111.   end;
  112.  
  113.   with WizardForm.WelcomeLabel1 do
  114.   begin
  115.     Caption := 'Welcome to the Adobe Runtimes AiO Setup Wizard by -=niTe_RiDeR_Pro=-';
  116.     Left := ScaleX(184);
  117.     Width := ScaleX(307);
  118.     Height := ScaleY(78);
  119.   end;
  120.  
  121.   with WizardForm.ComponentsList do
  122.   begin
  123.     Top := ScaleY(69);
  124.   end;
  125.  
  126.   { Label7 }
  127.   Label7 := TLabel.Create(WizardForm);
  128.   with Label7 do
  129.   begin
  130.     Name := 'Label7';
  131.     Parent := WizardForm;
  132.     Caption := 'RePack by niTe_RiDeR_Pro';
  133.     Font.Color := clWindowText;
  134.     Font.Height := -11;
  135.     Font.Name := 'Tahoma';
  136.     Font.Style := [fsItalic];
  137.     ParentFont := False;
  138.     Left := ScaleX(14);
  139.     Top := ScaleY(331);
  140.     Width := ScaleX(130);
  141.     Height := ScaleY(13);
  142.   end;
  143.  
  144.   { ISCustomPage4 }
  145.   with ISCustomPage4.Surface do
  146.   begin
  147.     Color := clBtnFace;
  148.   end;
  149.  
  150.   { Label1 }
  151.   Label1 := TLabel.Create(WizardForm);
  152.   with Label1 do
  153.   begin
  154.     Parent := ISCustomPage4.Surface;
  155.     Caption := 'Adobe Flash Player:';
  156.     Font.Color := clWindowText;
  157.     Font.Height := -11;
  158.     Font.Name := 'Tahoma';
  159.     Font.Style := [fsBold];
  160.     ParentFont := False;
  161.     Left := ScaleX(8);
  162.     Top := ScaleY(8);
  163.     Width := ScaleX(110);
  164.     Height := ScaleY(13);
  165.   end;
  166.  
  167.   { Label2 }
  168.   Label2 := TLabel.Create(WizardForm);
  169.   with Label2 do
  170.   begin
  171.     Parent := ISCustomPage4.Surface;
  172.     AutoSize := False;
  173.     Caption := 'Adobe Flash Player is the standard for delivering high-impact, rich Web content. ' + #13#10 +
  174.          'Designs, animation, and application user interfaces are deployed immediately across' + #13#10 +
  175.          'attracting and engaging users with a rich Web experience.';
  176.     Left := ScaleX(8);
  177.     Top := ScaleY(24);
  178.     Width := ScaleX(407);
  179.     Height := ScaleY(61);
  180.   end;
  181.  
  182.   { Label3 }
  183.   Label3 := TLabel.Create(WizardForm);
  184.   with Label3 do
  185.   begin
  186.     Parent := ISCustomPage4.Surface;
  187.     Caption := 'Adobe Shockwave Player:';
  188.     Font.Color := clWindowText;
  189.     Font.Height := -11;
  190.     Font.Name := 'Tahoma';
  191.     Font.Style := [fsBold];
  192.     ParentFont := False;
  193.     Left := ScaleX(8);
  194.     Top := ScaleY(80);
  195.     Width := ScaleX(145);
  196.     Height := ScaleY(13);
  197.   end;
  198.  
  199.   { Label4 }
  200.   Label4 := TLabel.Create(WizardForm);
  201.   with Label4 do
  202.   begin
  203.     Parent := ISCustomPage4.Surface;
  204.     Caption := 'Shockwave Player is the web standard for powerful multimedia playback. The ' + #13#10 +
  205.          'Shockwave Player allows you to view interactive web content like games,' + #13#10 +
  206.          ' business presentations, entertainment, and advertisements from your web browser. ';
  207.     Left := ScaleX(8);
  208.     Top := ScaleY(96);
  209.     Width := ScaleX(412);
  210.     Height := ScaleY(39);
  211.   end;
  212.  
  213.   { Label5 }
  214.   Label5 := TLabel.Create(WizardForm);
  215.   with Label5 do
  216.   begin
  217.     Parent := ISCustomPage4.Surface;
  218.     Caption := 'Adobe AIR:';
  219.     Font.Color := clWindowText;
  220.     Font.Height := -11;
  221.     Font.Name := 'Tahoma';
  222.     Font.Style := [fsBold];
  223.     ParentFont := False;
  224.     Left := ScaleX(8);
  225.     Top := ScaleY(152);
  226.     Width := ScaleX(63);
  227.     Height := ScaleY(13);
  228.   end;
  229.  
  230.   { Label6 }
  231.   Label6 := TLabel.Create(WizardForm);
  232.   with Label6 do
  233.   begin
  234.     Parent := ISCustomPage4.Surface;
  235.     Caption := 'Adobe AIR is a cross-operating-system runtime that lets developers combine HTML, ' + #13#10 +
  236.          'JavaScript, Adobe Flash® and Flex technologies, and ActionScript®; and also lets ' + #13#10 +
  237.          'users to deploy rich Internet applications (RIAs) on a broad range of devices including ' + #13#10 +
  238.          'desktop computers, netbooks, tablets, smartphones, and TVs. ';
  239.     Left := ScaleX(8);
  240.     Top := ScaleY(168);
  241.     Width := ScaleX(415);
  242.     Height := ScaleY(52);
  243.   end;
  244.  
  245.   with WizardForm.MainPanel do
  246.   begin
  247.     Left := ScaleX(0);
  248.     Top := ScaleY(0);
  249.   end;
  250.  
  251.   with WizardForm.PageDescriptionLabel do
  252.   begin
  253.     Transparent := True;
  254.     Left := ScaleX(24);
  255.     Top := ScaleY(29);
  256.   end;
  257.  
  258.   with WizardForm.PageNameLabel do
  259.   begin
  260.     AutoSize := True;
  261.     Left := ScaleX(16);
  262.     Top := ScaleY(8);
  263.     Width := ScaleX(4);
  264.   end;
  265.  
  266. { ReservationBegin }
  267.   // This part is for you. Add your specialized code here.
  268.  
  269. { ReservationEnd }
  270. end;
  271. // Don't modify this section. It is generated automatically.
  272. { RedesignWizardFormEnd } // Don't remove this line!
  273.  
  274. procedure ISCustomPage1Activate(Sender: TWizardPage);
  275. begin
  276.  
  277. end;
  278.  
  279. procedure iswin7_add_glass(Handle:HWND; Left, Top, Right, Bottom : Integer; GDIPLoadMode: boolean);
  280. external 'iswin7_add_glass@files:iswin7.dll stdcall';
  281. procedure iswin7_add_button(Handle:HWND);
  282. external 'iswin7_add_button@files:iswin7.dll stdcall';
  283. procedure iswin7_free;
  284. external 'iswin7_free@files:iswin7.dll stdcall';
  285.  
  286. procedure InitializeWizard();
  287. begin
  288.   RedesignWizardForm;
  289.     iswin7_add_button(WizardForm.BackButton.Handle);
  290.     iswin7_add_button(WizardForm.NextButton.Handle);
  291.     iswin7_add_button(WizardForm.CancelButton.Handle);
  292.     iswin7_add_glass(WizardForm.Handle, 0, 0, 0, ScaleY(50), True);
  293. end;
  294.  
  295. procedure DeinitializeSetup();
  296. begin
  297.     iswin7_free;
  298. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement