Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для vk_k14m@vk

Старожил


Сообщения: 342
Благодарности: 4

Профиль | Отправить PM | Цитировать


Ответьте кто нибудь, как работает этот код?
Код: Выделить весь код
[Files]
Check: Уже_установленное_приложение; Source: сразу_извлекается_и_запускается_этот_файл.exe; DestDir: {tmp}; BeforeInstall: ChangeCaption('Установка этого файла'); AfterInstall: install_this_file; Flags: ignoreversion recursesubdirs createallsubdirs; 
...
Source: Твои файлы...


[Сode]

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;
Что на что там заменять?
AppName=Artificial Academy 2
Приложение которое должно запускаться перед началом установки:
D:\Inno Setup\Installer\0 Delete after install\AA2Decrypt_unpack.bat

-------
Взялся отвечать, отвечай до конца!


Отправлено: 17:13, 02-10-2017 | #2144