Inno Setup 终止正在运行的进程

Question

我已经实现了一种方法来查找进程（“iexplore.exe”）是否正在运行，现在我需要找到一种方法从 Inno Setup 中关闭它（终止进程）。

strProg := 'iexplore.exe';
winHwnd := FindWindowByWindowName(strProg);
MsgBox('winHwnd: ' + inttostr(winHwnd),  mbInformation, MB_OK );
if winHwnd <> 0 then
  retVal:=postmessage(winHwnd,WM_CLOSE,0,0);

上例中的消息框将始终返回 0，因此不会获取句柄。 （示例中的WM_CLOSE常量已正确初始化） 我需要另一种方法来做到这一点，并且希望一种不涉及编写执行此操作的 C++ DLL 的方法（我不精通 C++，我也许能够用 C# 编写 DLL，但是我不知道 Inno Setup 是否将与之互操作）。

这个 C# DLL 将获取进程列表，迭代进程名称，找到匹配项（==“iexplorer”），然后终止具有该名称的进程...但是我仍然希望找到一个更简单的解决方案，以便我不必与 Pascal 脚本进行互操作。

提前致谢！

Answer 1

使用 Win32_Process 的版本，您可以使用“notepad.exe”调用该过程：

const wbemFlagForwardOnly = $00000020;

procedure CloseApp(AppName: String);
var
  WbemLocator : Variant;
  WMIService   : Variant;
  WbemObjectSet: Variant;
  WbemObject   : Variant;
begin;
  WbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  WMIService := WbemLocator.ConnectServer('localhost', 'root\CIMV2');
  WbemObjectSet := WMIService.ExecQuery('SELECT * FROM Win32_Process Where Name="' + AppName + '"');
  if not VarIsNull(WbemObjectSet) and (WbemObjectSet.Count > 0) then
  begin
    WbemObject := WbemObjectSet.ItemIndex(0);
    if not VarIsNull(WbemObject) then
    begin
      WbemObject.Terminate();
      WbemObject := Unassigned;
    end;
  end;
end;

Answer 2

您的代码做出了几个错误的假设，您应该解决所有这些问题：

• 在不先询问用户的情况下关闭任何程序是一个坏主意。考虑一下 Internet Explorer 的情况，用户可能会打开一些网页，其中的表单已部分填写 - 如果您无条件关闭它们，您可能会因为用户丢失工作而主动激怒他们。
  您应该做什么：检查是否有任何程序打开，干扰安装的正常进度，如果发现，则提醒用户需要将其关闭。循环询问他们是否取消或重复检查，并且除非关闭所有干扰程序，否则不要继续。

• 如果您确实需要向窗口发送 WM_CLOSE 消息，则支持函数 FindWindowByWindowName() 将不起作用。为什么 Internet Explorer 窗口的窗口名称是“iexplore.exe”？它将是打开网页的标题，因此您不会事先知道它是什么。
  您应该做什么：使用更合适的FindWindowByClassName()函数。使用 Spy++ 或 UI Spy 或类似工具，您可以找出程序窗口的类名。对于我系统上的 Internet Explorer，它是“IEFrame”，但您真的可以信赖它吗？再次强调，最好让用户控制事物，并重复运行进程检查，直到所有干扰程序都已关闭。

• 关闭具有匹配窗口或类名的单个窗口可能还不够。单个 Windows 进程可能会打开多个窗口，并且可能会运行同一可执行文件的多个实例，每个实例都打开一个或多个窗口。
  您应该做什么：循环执行检查（和关闭）代码，直到一切准备就绪。

• 但即便如此，您也应该做好出错的准备 - Windows 是一个多任务系统，随时可能会产生新进程或打开窗口。如果启用了自动播放，则当您认为已关闭所有 Internet Explorer 窗口时，插入 CD 或 USB 记忆棒可能会打开 Internet Explorer 窗口。

Answer 3

我遇到了这个问题，并编写了一个简短的 C++ 程序来终止某些可能处于挂起状态的进程，从而无法响应告诉它们终止的消息。我只对属于我的产品一部分的应用程序执行此操作，而不是系统应用程序。

如果您想忍受正确调用参数的痛苦，您可以在 Pascal 脚本中执行相同的操作。以下是我所做的概述：

获取 CSIDL_PROGRAM_FILES 的位置。 Inno setup 可以使用其 {pf} 或 {pf32} 常量来做到这一点。或者调用Windows api SHGetSpecialFolderLocation 函数。

例如，设置一个等于您要终止的进程的路径的字符串
String target = pf + "Mycompany/MyAppFolder/myHelperApp.exe"

调用 Windows api 函数 CreateToolhelp32Snapshot，该函数返回正在运行的进程列表。

使用 Windows API 的 OpenProcess 和 GetModuleFleNameEx 查看此返回列表以查找您的目标。

当您找到目标时，在目标进程句柄上调用 Windows api TerminateProcess。

Answer 4

const 
  WM_QUIT = 18;

function InitializeUninstall(): Boolean;
var
  winHwnd: longint;
  retVal : boolean;
  strProg: string;
begin
  Result := true;
  strProg := 'Readme.txt - Notepad';
  winHwnd := FindWindowByWindowName(strProg);
  MsgBox('winHwnd: ' + inttostr(winHwnd),  mbInformation, MB_OK );
  if winHwnd<>0 then begin                    { no module found or ignored pressed}
    MsgBox('ravi:' #13#13 'Bye bye!', mbInformation, MB_OK); 
    abort();                                      { continue setup  }
  end;
end;

它工作正常..

使用该代码，我可以跟踪正在运行的退出应用程序...