Artem_Butenko
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Друзья
----------------------------------------------
Почти доработал скрипт лоадера на Inno Setup, наконец-то понял как убрать окно с панели задач, но совсем не могу сообразить почему упаковываются в исполнительный файл инсталлятора файлы "MyProgram1.ex_" и "MyProgram2.ex_", ведь на них стоит константа {src}. Помогите разобраться, полный скрипт привожу ниже.
----------------------------------------------
Цитата: [Files]
Source: "MyProgram1.ex_"; DestDir: "{src}"; BeforeInstall: SetupFBird; Flags: noencryption nocompression
Source: "MyProgram2.ex_"; DestDir: "{src}"; BeforeInstall: SetupFBird; Flags: noencryption nocompression
[Code]
procedure SetupFBird();
var
ResultCode: Integer;
begin
Exec(ExpandConstant('{src}\MyProgram1.ex_'), '', '', SW_SHOWNORMAL,
ewWaitUntilTerminated, ResultCode);
Exec(ExpandConstant('{src}\MyProgram2.ex_'), '', '', SW_SHOWNORMAL,
ewWaitUntilTerminated, ResultCode);
end; |
----------------------------------------------
Что здесь не так? Во-первых, необходимо, чтобы каждый файл срабатывал один раз, а у меня они запускаются дважды. Во-вторых, константа {src} не срабатывает и файлы, которые по идее должны лежать рядом с исполнительным файлом инсталлятора, просто пакуются в него!
----------------------------------------------
Пробовал вот так, но все равно файлы "MyProgram1.ex_" и "MyProgram2.ex_" пакуются в общий инсталлятор, кроме того, перед непосредственным исполнением распаковываются рядом с ним! Что совсем недопустимо, при записи этого инсталлятора на диск.
Цитата: [Files]
Source: "MyProgram1.ex_"; DestDir: "{src}"; BeforeInstall: SetupFBird1; Flags: noencryption nocompression
Source: "MyProgram2.ex_"; DestDir: "{src}"; BeforeInstall: SetupFBird2; Flags: noencryption nocompression
[Code]
procedure SetupFBird1();
var
ResultCode: Integer;
begin
Exec(ExpandConstant('{src}\MyProgram1.ex_'), '', '', SW_SHOWNORMAL,
ewWaitUntilTerminated, ResultCode);
end;
procedure SetupFBird2();
var
ResultCode: Integer;
begin
Exec(ExpandConstant('{src}\MyProgram2.ex_'), '', '', SW_SHOWNORMAL,
ewWaitUntilTerminated, ResultCode);
end; |
|
