我想使用 inno setup 终止一个进程。我想在开始安装设置之前检查窗口是否打开。
我可以通过搜索 Windows 名称来做到这一点吗?请帮我一些示例代码来终止进程
我想使用 inno setup 终止一个进程。我想在开始安装设置之前检查窗口是否打开。
我可以通过搜索 Windows 名称来做到这一点吗?请帮我一些示例代码来终止进程
在 [UninstallRun] 部分,您可以添加以下代码:
Filename: {sys}\taskkill.exe; Parameters: "/f /im MyProcess.exe"; Flags: skipifdoesntexist runhidden
这是我为提示用户在发现程序正在运行时关闭程序所做的事情。
function CheckProcessRunning( aProcName,
aProcDesc: string ): boolean;
var
ShellResult: boolean;
ResultCode: integer;
cmd: string;
sl: TStringList;
f: string;
d: string;
begin
cmd := 'for /f "delims=," %%i ' +
'in (''tasklist /FI "IMAGENAME eq ' + aProcName + '" /FO CSV'') ' +
'do if "%%~i"=="' + aProcName + '" exit 1';
f := 'CheckProc.cmd';
d := AddBackSlash( ExpandConstant( '{tmp}' ));
sl := TStringList.Create;
sl.Add( cmd );
sl.Add( 'exit /0' );
sl.SaveToFile( d + f );
sl.Free;
Result := true;
while ( Result ) do
begin
ResultCode := 1;
ShellResult := Exec( f,
'',
d,
SW_HIDE,
ewWaitUntilTerminated,
ResultCode );
Result := ResultCode > 0;
if Result and
( MsgBox( aProcDesc + ' is running. This program must be closed to continue.'#13#10 +
'Please close it and click Yes to retry or click No to cancel this installer.',
mbConfirmation,
MB_YESNO ) <> IDYES ) then
Break;
end;
DeleteFile( d + f );
end;
我在以下特殊代码部分中使用了它,如下所示:
// Perform some initializations. Return False to abort setup
function InitializeSetup: Boolean;
begin
// Do not use any user defined vars in here such as {app}
InitializeGlobals;
Result := not ( CheckProcessRunning( 'bcb.exe', 'C++ Builder' ) or
CheckProcessRunning( 'delphi32.exe', 'Delphi' ) or
CheckProcessRunning( 'bds.exe', 'Rad Studio' ));
end;
function InitializeUninstall: Boolean;
begin
InitializeGlobals;
Result := not ( CheckProcessRunning( 'bcb.exe', 'C++ Builder' ) or
CheckProcessRunning( 'delphi32.exe', 'Delphi' ) or
CheckProcessRunning( 'bds.exe', 'Rad Studio' ));
end;