[saurn]

Но по умолчанию в инно, в начале скопируются файлы (содержимое) и только потом запустится секция run. файл 1 - запуск exe - файл 2 - запуск exe »

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=none


[Components]
Name: a; Description: Компонент 1; Types: full
Name: b; Description: Компонент 2; Types: custom


[Files]
;Компонент 1
Source: c:\windows\fonts\*; DestDir: {app}; Components: a; Flags: ignoreversion external;
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Afterinstall: My_Exec(1); Components: a; Flags: ignoreversion;
;Компонент 2
Source: c:\windows\help\*; DestDir: {app}; Components: b; Flags: recursesubdirs overwritereadonly createallsubdirs ignoreversion external;
Source: compiler:Examples\MyProg.exe; DestDir: {app}; DestName: MyProg2.exe; Afterinstall: My_Exec(2); Components: b; Flags: ignoreversion;


[Code]
procedure My_Exec(const Number: Integer);
var
    i: Integer;
begin
    case Number of
        1: Exec(ExpandConstant('{app}\MyProg.exe'), '', ExpandConstant('{app}'), 5, ewWaitUntilTerminated, i);   //Ексишник первого компонента с ожиданием
        2: Exec(ExpandConstant('{app}\MyProg2.exe'), '', ExpandConstant('{app}'), 5, ewWaitUntilTerminated, i);   //Ексишник второго компонента с ожиданием
    end;
end;