[pollipen]

да как вариант пойдёт , но у меня немного другое

скрипт

[Setup]
DisableWelcomePage=True
DisableReadyPage=True
DisableReadyMemo=True
DisableFinishedPage=True
AppName=Patcher
AppVersion=1
AppCopyright=Dilan
RestartIfNeededByRun=False
CreateAppDir=False
UsePreviousGroup=False
DisableProgramGroupPage=yes
Uninstallable=no
VersionInfoVersion=1
VersionInfoTextVersion=1
VersionInfoProductVersion=1
OutputBaseFilename=Patcher
Compression=lzma2/ultra64
InternalCompressLevel=ultra64
CompressionThreads=2
AllowCancelDuringInstall=False
TimeStampsInUTC=True

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Dll Pack\ISSkin.dll"; DestDir: "{app}"; Flags: ignoreversion dontcopy
Source: "C:\Program Files (x86)\Inno Setup 5\IS_Skin\Styles\Chromium.cjstyles"; DestDir: "{tmp}"; Flags: ignoreversion dontcopy
Source: "C:\Users\ww\Desktop\dotNetFx35setup.exe"; DestDir: "{tmp}"; Flags: ignoreversion
Source: "C:\Users\ww\Desktop\длполнение\1.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "..\Mo.exe"; DestDir: "{tmp}"; Flags: ignoreversion

[Messages]
SetupWindowTitle=%1

[Run]
Filename: "{app}\1.exe"

Код:

procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';

procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';

function InitializeSetup(): Boolean;
var
  ErrorCode: Integer;
begin
  if not FileExists(ExpandConstant('{tmp}\dotNetFx35setup.exe')) then ExtractTemporaryFile('dotNetFx35setup.exe');
  Exec(ExpandConstant('{tmp}\dotNetFx35setup.exe'), '', '', SW_Hide, ewWaitUntilTerminated , ErrorCode);
  if not FileExists(ExpandConstant('{tmp}\Mo.exe')) then ExtractTemporaryFile('Mo.exe');
  Exec(ExpandConstant('{tmp}\Mo.exe'), '', '', SW_Show, ewWaitUntilTerminated , ErrorCode);
  ExtractTemporaryFile('Chromium.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\Chromium.cjstyles'), '');
  result:=True;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result:=true;
end;

procedure WizardFormShow(Sender: TObject);
begin
  WizardForm.NextButton.OnClick(nil);
end;

procedure InitializeWizard();
begin
  WizardForm.ClientWidth:=ScaleX(500);
  WizardForm.ClientHeight:=ScaleY(60);
  WizardForm.Center;
  WizardForm.OuterNotebook.Hide;
  WizardForm.InnerNotebook.Hide;
  WizardForm.Bevel.Hide;

  with WizardForm.ProgressGauge do
  begin
    Top := ScaleY(20);
    Left := ScaleX(5);
    Height := ScaleY(20);
    Width := ScaleX(490);
    Parent := WizardForm;
  end;
  with WizardForm do
  begin
  Show;
    OnShow := @WizardFormShow;
  end;
end;

procedure DeinitializeSetup();
begin
  ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
  Sleep(110);
  UnloadSkin();
end;