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

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

Аватара для ErikPshat

Пользователь


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

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


Chudmin,
Код: Выделить весь код
[UninstallRun] 
Filename: "{sys}\taskkill.exe"; Parameters: "/f /im Моя_прога.exe"; Flags: skipifdoesntexist runhidden
или использовать сразу в секции Files параметр BeforeInstall для уничтожения процесса перед установкой:
Код: Выделить весь код
[Files]
Source: "Моя_прога.exe"; DestDir: "{app}"; Flags: ignoreversion; BeforeInstall: TaskKill('Моя_прога.exe')

[ Code ]
procedure TaskKill(FileName: String);
var
  ResultCode: Integer;
begin
    Exec(ExpandConstant('taskkill.exe'), '/f /im ' + '"' + FileName + '"', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;

Последний раз редактировалось ErikPshat, 22-10-2018 в 06:49.

Это сообщение посчитали полезным следующие участники:

Отправлено: 06:39, 22-10-2018 | #107