Цитата vk_k14m@vk:
Вроде все ясно, вот запускаешь ты установщик с уже установленным приложением, листаешь далее далее, выбираешь создавать не создавать ярылки, и потом с нажатием кнопки "установить". сразу извлекается и запускается этот файл, и после завершение этого файла извлечение продолжается в обычном режиме. »
|
это можно сделать через [Files] BeforeInstall, CurStepChanged, CurPageChanged и NextButtonClick
Я обычно делаю так
Код:
[Files]
Check: Уже_установленное_приложение; Source: сразу_извлекается_и_запускается_этот_файл.exe; DestDir: {tmp}; BeforeInstall: ChangeCaption('Установка этого файла'); AfterInstall: install_this_file; Flags: ignoreversion recursesubdirs createallsubdirs;
...
Source: Твои файлы...
[Code]
procedure install_this_file();
var res:integer; file, path : string;
begin
file := ExpandConstant('{tmp}\сразу_извлекается_и_запускается_этот_файл.exe'); path := ExpandConstant('{tmp}');
if FileExists(file) then Exec(file, ' параметры',path,SW_SHOW,ewWaitUntilTerminated,res) else MsgBox('Файл') + ' ' + file + #13#10 + 'не найден'), mbInformation, MB_OK);
end;
Function Уже_установленное_приложение():boolean;
begin
if это_приложение_уже_установлено then Result := True else Result := False;
end;