New Modified Inno Script

;InnoSetupVersion=5.5.0

#define MyAppId "Adobe Shockwave Player"

[Setup]
AppName=Adobe Runtimes AiO
AppVersion=15.12.15
AppPublisher=Adobe Systems, Inc.
AppPublisherURL=www.adobe.com
OutputBaseFilename=AdobeRuntimes_AiO_15.12.15_niTe.RiDeR_Nov24.2014
Compression=lzma2/ultra64
Uninstallable=no
DisableProgramGroupPage=yes
WizardImageFile=embedded\WizardImage.bmp
LicenseFile=embedded\LicenseAgreement.rtf
SolidCompression=yes
InternalCompressLevel=ultra
SetupIconFile=embedded\SetupIcon.ico
WizardSmallImageFile=embedded\WizardSmallImage.bmp
VersionInfoVersion=15.12.15
VersionInfoCompany=Adobe Systems Incorporated
VersionInfoDescription=Adobe Runtimes AiO (Adobe Shockwave Player v12.1.4.154 + Flash Player v15.0.0.223 + Adobe AIR) RePacked Setup
VersionInfoProductName=Adobe Runtimes AiO
VersionInfoProductVersion=15.12.15
VersionInfoProductTextVersion=12.12.15
CreateAppDir=False

[Files]
Source: "{app}\install_flash_player_15_active_x.exe"; DestDir: "{tmp}"; Components: flashactivex; MinVersion: 0.0,5.01; Flags: deleteafterinstall
Source: "{app}\install_flash_player_15_plugin.exe"; DestDir: "{tmp}"; Components: flashplugin; MinVersion: 0.0,5.01; Flags: deleteafterinstall
Source: "{app}\sw_lic_full_installer.msi"; DestDir: "{tmp}"; Components: shockwave; MinVersion: 0.0,5.01; Flags: deleteafterinstall
Source: "{app}\AdobeAIRInstaller.exe"; DestDir: "{tmp}"; Components: air; MinVersion: 0.0,5.01; Flags: deleteafterinstall
Source: "embedded\ISWin7.dll"; DestDir: "{tmp}"; Flags: dontcopy nocompression

[Run]
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;
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;
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
Filename: "{tmp}\AdobeAIRInstaller.exe"; Parameters: "-silent"; StatusMsg: "Installing Adobe AIR 15; Please wait..."; Components: air; MinVersion: 0.0,5.01;

[Components]
Name: "flashplugin"; Description: "Adobe Flash Player v15.0.0.223 Plugin"; Types: "compact full"; MinVersion: 0.0,5.01; ExtraDiskSpaceRequired: 10485760
Name: "flashactivex"; Description: "Adobe Flash Player v15.0.0.223 ActiveX"; Types: "compact full"; MinVersion: 0.0,5.01; ExtraDiskSpaceRequired: 10485760
Name: "shockwave"; Description: "Adobe Shockwave Player v12.1.4.154"; Types: "compact full"; MinVersion: 0.0,5.01; ExtraDiskSpaceRequired: 10485760
Name: "air"; Description: "Adobe AIR v15.0.0.356"; Types: "full"; MinVersion: 0.0,5.01; ExtraDiskSpaceRequired: 10485760

[Messages]
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.
WizardSelectComponents=Select Runtimes
SelectComponentsDesc=Which runtimes should be installed?

[Code]
{ RedesignWizardFormBegin } // Don't remove this line!
var
  ISCustomPage2: TWizardPage;
  ISCustomPage3: TWizardPage;
  ISCustomPage1: TWizardPage;
  ISCustomPage4: TWizardPage;
  Label1: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  Label4: TLabel;
  Label5: TLabel;
  Label6: TLabel;
  Label7: TLabel;
  ResultCode: Integer;
  ResultStr: string;

procedure RedesignWizardForm;
begin
  { Creates custom wizard page }
  ISCustomPage4 := CreateCustomPage(wpWelcome, 'Description', 'A Description of the Runtimes (Components)');

  with WizardForm do
  begin
    AutoScroll := False;
    ClientHeight := ScaleY(363);
    ClientWidth := ScaleX(490);
    Caption := 'Setup - Adobe Runtimes AiO RePack';
  end;

  with WizardForm.CancelButton do
  begin
    Left := ScaleX(404);
  end;

  with WizardForm.NextButton do
  begin
    Left := ScaleX(319);
  end;

  with WizardForm.BackButton do
  begin
    Left := ScaleX(244);
  end;

  with WizardForm.WizardBitmapImage do
  begin
    Width := ScaleX(180);
  end;

  with WizardForm.WelcomeLabel2 do
  begin
    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 +
         '' + #13#10 +
         'It is strongly recommended to close other web browsers.' + #13#10 +
         'You can choose which runtimes to install.' + #13#10 +
         '' + #13#10 +
         'Click Next to continue, or Cancel to exit Setup.';
    Left := ScaleX(184);
    Top := ScaleY(94);
    Width := ScaleX(293);
    Height := ScaleY(212)
  end;

  with WizardForm.WelcomeLabel1 do
  begin
    Caption := 'Welcome to the Adobe Runtimes AiO Setup Wizard by -=niTe_RiDeR_Pro=-';
    Left := ScaleX(184);
    Width := ScaleX(307);
    Height := ScaleY(78);
  end;

  with WizardForm.ComponentsList do
  begin
    Top := ScaleY(69);
  end;

  { Label7 }
  Label7 := TLabel.Create(WizardForm);
  with Label7 do
  begin
    Name := 'Label7';
    Parent := WizardForm;
    Caption := 'RePack by niTe_RiDeR_Pro';
    Font.Color := clWindowText;
    Font.Height := -11;
    Font.Name := 'Tahoma';
    Font.Style := [fsItalic];
    ParentFont := False;
    Left := ScaleX(14);
    Top := ScaleY(331);
    Width := ScaleX(130);
    Height := ScaleY(13);
  end;

  { ISCustomPage4 }
  with ISCustomPage4.Surface do
  begin
    Color := clBtnFace;
  end;

  { Label1 }
  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Parent := ISCustomPage4.Surface;
    Caption := 'Adobe Flash Player:';
    Font.Color := clWindowText;
    Font.Height := -11;
    Font.Name := 'Tahoma';
    Font.Style := [fsBold];
    ParentFont := False;
    Left := ScaleX(8);
    Top := ScaleY(8);
    Width := ScaleX(110);
    Height := ScaleY(13);
  end;

  { Label2 }
  Label2 := TLabel.Create(WizardForm);
  with Label2 do
  begin
    Parent := ISCustomPage4.Surface;
    AutoSize := False;
    Caption := 'Adobe Flash Player is the standard for delivering high-impact, rich Web content. ' + #13#10 +
         'Designs, animation, and application user interfaces are deployed immediately across' + #13#10 +
         'attracting and engaging users with a rich Web experience.';
    Left := ScaleX(8);
    Top := ScaleY(24);
    Width := ScaleX(407);
    Height := ScaleY(61);
  end;

  { Label3 }
  Label3 := TLabel.Create(WizardForm);
  with Label3 do
  begin
    Parent := ISCustomPage4.Surface;
    Caption := 'Adobe Shockwave Player:';
    Font.Color := clWindowText;
    Font.Height := -11;
    Font.Name := 'Tahoma';
    Font.Style := [fsBold];
    ParentFont := False;
    Left := ScaleX(8);
    Top := ScaleY(80);
    Width := ScaleX(145);
    Height := ScaleY(13);
  end;

  { Label4 }
  Label4 := TLabel.Create(WizardForm);
  with Label4 do
  begin
    Parent := ISCustomPage4.Surface;
    Caption := 'Shockwave Player is the web standard for powerful multimedia playback. The ' + #13#10 +
         'Shockwave Player allows you to view interactive web content like games,' + #13#10 +
         ' business presentations, entertainment, and advertisements from your web browser. ';
    Left := ScaleX(8);
    Top := ScaleY(96);
    Width := ScaleX(412);
    Height := ScaleY(39);
  end;

  { Label5 }
  Label5 := TLabel.Create(WizardForm);
  with Label5 do
  begin
    Parent := ISCustomPage4.Surface;
    Caption := 'Adobe AIR:';
    Font.Color := clWindowText;
    Font.Height := -11;
    Font.Name := 'Tahoma';
    Font.Style := [fsBold];
    ParentFont := False;
    Left := ScaleX(8);
    Top := ScaleY(152);
    Width := ScaleX(63);
    Height := ScaleY(13);
  end;

  { Label6 }
  Label6 := TLabel.Create(WizardForm);
  with Label6 do
  begin
    Parent := ISCustomPage4.Surface;
    Caption := 'Adobe AIR is a cross-operating-system runtime that lets developers combine HTML, ' + #13#10 +
         'JavaScript, Adobe Flash® and Flex technologies, and ActionScript®; and also lets ' + #13#10 +
         'users to deploy rich Internet applications (RIAs) on a broad range of devices including ' + #13#10 +
         'desktop computers, netbooks, tablets, smartphones, and TVs. ';
    Left := ScaleX(8);
    Top := ScaleY(168);
    Width := ScaleX(415);
    Height := ScaleY(52);
  end;

  with WizardForm.MainPanel do
  begin
    Left := ScaleX(0);
    Top := ScaleY(0);
  end;

  with WizardForm.PageDescriptionLabel do
  begin
    Transparent := True;
    Left := ScaleX(24);
    Top := ScaleY(29);
  end;

  with WizardForm.PageNameLabel do
  begin
    AutoSize := True;
    Left := ScaleX(16);
    Top := ScaleY(8);
    Width := ScaleX(4);
  end;
end;
{ RedesignWizardFormEnd } // Don't remove this line!

procedure ISCustomPage1Activate(Sender: TWizardPage);
begin

end;

procedure iswin7_add_glass(Handle:HWND; Left, Top, Right, Bottom : Integer; GDIPLoadMode: boolean);
external 'iswin7_add_glass@files:iswin7.dll stdcall';
procedure iswin7_add_button(Handle:HWND);
external 'iswin7_add_button@files:iswin7.dll stdcall';
procedure iswin7_free;
external 'iswin7_free@files:iswin7.dll stdcall';

procedure InitializeWizard();
begin
  RedesignWizardForm;
    iswin7_add_button(WizardForm.BackButton.Handle);
    iswin7_add_button(WizardForm.NextButton.Handle);
    iswin7_add_button(WizardForm.CancelButton.Handle);
    iswin7_add_glass(WizardForm.Handle, 0, 0, 0, ScaleY(50), True);
end;

function InitializeSetup(): Boolean;
begin
  // Check if the application is already install
  // MsgBox('MyAppId = ' + '{#MyAppId}', mbInformation, mb_Ok);
  begin
    If RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#MyAppId}_is1', 'UninstallString', ResultStr) then begin
      If ResultStr<>'' then begin
        ResultStr:=RemoveQuotes(ResultStr);
          if MsgBox('The previous version of Shockwave Player application is already installed. ' #13#13 'Uninstall it ?', mbConfirmation, MB_YESNO) = idYes then
          if not Exec(ResultStr, '/S', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
            MsgBox('Error !!! ' #13#13 '' + SysErrorMessage(ResultCode) + '.', mbError, MB_OK);
      end;
    end;
  end ;
  Result := True;
end;

procedure DeinitializeSetup();
begin
    iswin7_free;
end;