在我的 Inno Setup 脚本中,我正在执行第 3 方可执行文件。我正在使用如下Exec()
功能:
Exec(ExpandConstant('{app}\SomeExe.exe'), '', '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
通过提及ewWaitUntilTerminated
它等到SomeExe.exe
不退出。我只想等待 10 秒。
有什么解决办法吗?
在我的 Inno Setup 脚本中,我正在执行第 3 方可执行文件。我正在使用如下Exec()
功能:
Exec(ExpandConstant('{app}\SomeExe.exe'), '', '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
通过提及ewWaitUntilTerminated
它等到SomeExe.exe
不退出。我只想等待 10 秒。
有什么解决办法吗?
假设您要执行外部应用程序,等待其终止指定的时间,如果它没有自行终止,则从安装程序中杀死它,请尝试以下代码。对于这里使用的神奇常数,函数中用作参数的 3000WaitForSingleObject
是设置等待进程终止的时间(以毫秒为单位)。如果它没有在那个时候自行终止,它会被TerminateProcess
函数杀死,其中 666 值是进程退出代码(在这种情况下非常邪恶:-)
[Code]
#IFDEF UNICODE
#DEFINE AW "W"
#ELSE
#DEFINE AW "A"
#ENDIF
const
WAIT_TIMEOUT = $00000102;
SEE_MASK_NOCLOSEPROCESS = $00000040;
type
TShellExecuteInfo = record
cbSize: DWORD;
fMask: Cardinal;
Wnd: HWND;
lpVerb: string;
lpFile: string;
lpParameters: string;
lpDirectory: string;
nShow: Integer;
hInstApp: THandle;
lpIDList: DWORD;
lpClass: string;
hkeyClass: THandle;
dwHotKey: DWORD;
hMonitor: THandle;
hProcess: THandle;
end;
function ShellExecuteEx(var lpExecInfo: TShellExecuteInfo): BOOL;
external 'ShellExecuteEx{#AW}@shell32.dll stdcall';
function WaitForSingleObject(hHandle: THandle; dwMilliseconds: DWORD): DWORD;
external 'WaitForSingleObject@kernel32.dll stdcall';
function TerminateProcess(hProcess: THandle; uExitCode: UINT): BOOL;
external 'TerminateProcess@kernel32.dll stdcall';
function NextButtonClick(CurPageID: Integer): Boolean;
var
ExecInfo: TShellExecuteInfo;
begin
Result := True;
if CurPageID = wpWelcome then
begin
ExecInfo.cbSize := SizeOf(ExecInfo);
ExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
ExecInfo.Wnd := 0;
ExecInfo.lpFile := 'calc.exe';
ExecInfo.nShow := SW_HIDE;
if ShellExecuteEx(ExecInfo) then
begin
if WaitForSingleObject(ExecInfo.hProcess, 3000) = WAIT_TIMEOUT then
begin
TerminateProcess(ExecInfo.hProcess, 666);
MsgBox('You just killed a little kitty!', mbError, MB_OK);
end
else
MsgBox('The process was terminated in time!', mbInformation, MB_OK);
end;
end;
end;
我在 Windows 7 上使用 Inno Setup 5.4.3 Unicode 和 ANSI 版本测试过的代码(感谢 kobik 提出的使用条件定义的 Windows API 函数声明的想法this post
)