[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;

[boss911]

но у меня немного другое »

А что мешает запускать/устанавливать через секцию Run? Или зачем через секцию Code это делать?

[pollipen]

А что мешает запускать/устанавливать через секцию Run? Или зачем через секцию Code это делать?

вносятся изменения в программу так как скрытый инстал оригинальный

[boss911]

вносятся изменения в программу так как скрытый инстал оригинальный »

Не понял, по подробнее и зачем. Все что я вижу, это первый запуск "dotNetFx35setup.exe" без ключей, но со скрытым окном, второй запуск "Mo.exe" (что это?), а вот что такое LoadSkin('Chromium.cjstyles') и для оно надо, мне совсем не ясно. Вам вот это все в секции Code нужно лишь для того, чтобы тихо установить .NET3.5?

[pollipen]

Всё до пилил (Если долго мучиться, что ни-будь получиться) Золотые слова.

[pollipen]

[sergey3695]

pollipen,

Код:

 WizardForm.DirBrowseButton.SetBounds(тра ла ла);
 WizardForm.DirBrowseButton.Parent:= куда;

[чокнутыйрепакер]

подскажите вот такой случай :

где и что прописать на СКРЫТУЮ установку софта ( например PhysX ) после установки самого репака ?

[Nordek]

например PhysX »

Например:

Код:

[Tasks]
Name: nv_physx; Description: PhysX; GroupDescription: Требуемые компонетнты

[Files]
Source: PhysX.exe; DestDir: {tmp}; Flags: ignoreversion; Tasks: nv_physx

[Run]
Filename: {tmp}\PhysX.exe; Parameters: /quiet; StatusMsg: Установка PhysX

[Oklen]

Здравствуйте. Возможно задам глупый вопрос, но может ли inno перезаписать фалы в архиве (архив формата .pack)?