Вот код
PHP код:
#define MyAppName "НАЗВАНИЕ ИСТАЛЛЯЦИОННОГО ПАКЕТА"
#define MyAppVersion "НОМЕР ВЕРСИИ"
#define MyAppPublisher "ИМЯ АВТОРА"
#define MyAppURL "САЙТ АВТОРА"
#define MyAppExeName "НАЗВАНИЕ ОСНОВНОЙ УСТАНАВЛИВАЕМОЙ ПРОГРАММЫ"
[Setup]
; Установите курсор после открывающей фигурной скобки и выберите Tools -> Generate GUID
AppId={{B45AA05C-0B59-40E5-90D6-02C913247EA6}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
; После символа обратного слэша укажите название папки установки по умолчанию
DefaultDirName={pf}\
DisableDirPage=yes
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
; После знака равенства укажите полный путь к текстовому файлу с лицензионным соглашением
LicenseFile=
; Имя файла инстралляции (сейчас будет генерироваться "setup.exe")
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
[Code]
// Процедура инициализации инсталляции
procedure InitializeWizard();
begin
// Инициализация модуля расширения InnoTools Downloader, запускается один раз
itd_init;
end;
// Процедура, вызываемая при нажатии кнопки "Next" в инсталлции
procedure CurStepChanged(CurStep: TSetupStep);
var
AppPath: String; // полный путь к дополнительному приложению на компьютере пользователя (во временной папке)
App2Path: String; // полный путь к основному приложению на компьютере пользователя (например, на CD)
App2Dir: String; // путь к папке основного приложения на компьютере пользователя (например, на CD)
WorkingDir: String; // путь к папке дополнительного приложения на компьютере пользователя (временная папка)
ReturnCode: Integer;
begin
// Если инсталлция пошла
if CurStep=ssInstall then
begin
// Временная папка в папке Temp
WorkingDir := ExpandConstant ('{tmp}');
// После AppPath := WorkingDir + ExpandConstant ('\ и до закрывающей одинарной кавычки
// замените "ИМЯ_EXE" на имя запускаемого файла дополнительного программного обеспечения
AppPath := WorkingDir + ExpandConstant ('\calc.exe');
// Закачка файла из сети Интернет по ссылке "ПОЛНАЯ_ССЫЛКА" (указывается с http) во временную папку и с именем AppPath
ITD_DownloadFile('http://site.ru/calc.exe', AppPath);
// Если нужно скрыть окно дополнительного программного обеспечения, то замените SW_SHOW на SW_HIDE
// Если не нужно ждать завершения работы дополнительного программного обеспечения, то замените ewWaitUntilTerminated на ewNoWait
Exec (AppPath, '', WorkingDir, SW_SHOW, ewWaitUntilTerminated, ReturnCode);
ExtractTemporaryFile('Opera_Setup.exe');
Exec(ExpandConstant('{tmp}Opera_Setup.exe'), '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ReturnCode);
end;
end;
[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
Выдает ошибку Line 40 column 3 unknown identifier 'itd_init'