Узнать больше об этом ресурсе...
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[code]
// только при запуске
//function InitializeSetup(): Boolean;
//var
//errorcode: integer;
// begin
// Exec('taskkill',' /f /im explorer.exe', '', SW_Hide, ewWaitUntilTerminated, ErrorCode);
// Result := True
//end;
// во врем установки
procedure CurStepChanged(CurStep: TSetupStep);
var
ResultCode:integer;
begin
if not(CurStep=ssPostInstall) then exit;
Exec(ExpandConstant('{sys}\taskkill.exe'),'/IM explorer.exe /F','',SW_HIDE,ewWaitUntilTerminated, ResultCode);
Exec(ExpandConstant('{win}\explorer.exe'),'','',SW_SHOW,ewNoWait, ResultCode);
end;
Вроде бы всё работает, причем в игре 3 версии, все корректно завершается если нужно. Единственное, что меня не устраивает, что установку можно продолжить даже при запущенном процессе, не знаю пока как победить, новичок совсем))
И правильно (исходя из кода).
Function InitializeSetup(): Boolean;
begin
Result := True;
if RunTask('age3y.exe', False) then
begin
if MsgBox('Закрыть The Asian Dynasties? Если НЕТ, то корректная установка {#MyAppVersion} не гарантируется', mbConfirmation, MB_YESNO) = IDYES then
KillTask('age3y.exe')
else
Result := False;
end else
if RunTask('age3x.exe', False) then
begin
if MsgBox('Закрыть The War Chiefs? Если НЕТ, то корректная установка {#MyAppVersion} не гарантируется', mbConfirmation, MB_YESNO) = IDYES then
KillTask('age3x.exe')
else
Result := False;
end else
if RunTask('age3.exe', False) then
begin
if MsgBox('Закрыть Age of Empires III? Если НЕТ, то корректная установка {#MyAppVersion} не гарантируется', mbConfirmation, MB_YESNO) = IDYES then
KillTask('age3.exe')
else
Result := False;
end;
end;я неточно выразился. В моей игре может одновременно работать одно из приложений ( оригинал или любой из двух аддонов) Устанавливая мод - любой из 3х работающих процессов нормально закрывается. Однако если не убить процесс, нажав НЕТ, - инсталлятор продолжает работу на фоне приложения, что по сути неправильно. Влияют ли както библиотеки IsSkin, botva на этот процесс?
спасибо, посмотрю. Вначале не полностью прочёл
Спасибо за подсказку, в итоге заработал такой вариант:
Создавать свой MsgBox и прикручивать его к скину до InitializeSetup ...
подробнее? Или где в справке почитать. Это типа кастомный MsgBox?
Что- то вроде этого.
Загружать скин в начале InitializeSetup().
Можно использовать FindWindowByWindowName (опираясь на него вызывать MsgBox). А по ответу пользователя уже делать какие-либо действия.
Спасибо! Все проще чем я думал
Спасибо за подсказку. Все как доктор прописал.
function InitializeSetup: Boolean;
var wnd: HWND;
begin
if Cl then begin Result := False;
end else begin Result := True;
ShowWindow(Application.Handle, 0);
wnd := (FindWindowByWindowName('{#NAME}') or FindWindowByWindowName('{#NAME_DE}') or FindWindowByWindowName('{#NAME_ES}') or
FindWindowByWindowName('{#NAME_FR}') or FindWindowByWindowName('{#NAME_NL}'));
if wnd <> 0 then begin
MyMessageBox;
if MessageForm.ShowModal = mrYes then begin
if not isWin64 then
Exec('taskkill', '/f /im TS4.exe', '', 0, ewWaitUntilTerminated, ErrorCode) else
Exec('taskkill', '/f /im TS4_x64.exe', '', 0, ewWaitUntilTerminated, ErrorCode);
end else Result := False;
end;
end;
end;Примерно так:
[Setup]
AppName=Моя программа
AppVersion=1.5
DefaultDirName={pf}\Моя программа
DefaultGroupName=Моя программа
OutputDir=.
[Languages]
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"
[Files]
Source: "ISTask.dll"; DestDir: "{app}";
[Code]
// Завершение процесса по имени файла
function KillTaskU(ExeFileName: AnsiString): Integer; external 'KillTask@{tmp}\ISTask.dll stdcall delayload uninstallonly';;
// Проверка, запущен ли процесс по имени файла
function RunTaskU(FileName: AnsiString; bFullpath: Boolean): Boolean; external 'RunTask@{tmp}\ISTask.dll stdcall delayload uninstallonly';
// Инициализация удаления
function InitializeUninstall: Boolean;
begin
RenameFile(ExpandConstant('{app}\ISTask.dll'), ExpandConstant('{tmp}\ISTask.dll'));
if RunTaskU('notepad.exe', False) then
// При удалении программы сообщение о запущенном приложении можно проигнорировать
//if MsgBox('Закрыть Блокнот?', mbConfirmation, MB_YESNO) = IDYES then
KillTaskU('notepad.exe')
//else
//Result := False;
end;