INNOSETUP制作安装包如何关闭IE浏览器

[wxf54318]

想要在安装包卸载的时候关闭已经打开的IE浏览器，添加了下面这段代码，没起作用
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var appWnd: HWND;
...
appWnd := FindWindowByWindowName('Internet Explorer');
if (appWnd <> 0) then
begin
PostMessage(appWnd, 16, 0, 0); // quit
end;
...

[蠓虫带着秤砣飞]

KillProcessFromName
https://blog.csdn.net/XuePiaoFei1/article/details/80691824

[蠓虫带着秤砣飞]

原文这里
http://blog.sina.com.cn/s/blog_a6fb6cc90102vh93.html

function InitializeSetup(): Boolean;
begin
  Result := true;
  if  IsAppRunning('{#MyAppExeName}') then
  begin
    if MsgBox('安装程序检测到 {#MyAppName} 正在运行！'#13''#13'单击“是”按钮关闭程序并继续安装；'#13''#13'单击“否”按钮退出安装！', mbConfirmation, MB_YESNO) = IDYES then
    begin
      TaskKillProcessByName('{#MyAppExeName}');
      Result:= true;
    end
    else
      Result:= false;
  end;
end;

[蠓虫带着秤砣飞]

抱歉忘记代码了，参考这个
https://www.cnblogs.com/w-pound/p/13158219.html

引用 4 楼 wxf54318 的回复:

TaskKillProcessByName报错了

/;通过名称终结进程
procedure TaskKillProcessByName(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;

[wxf54318]

TaskKillProcessByName报错了

[wxf54318]

正解，非常感谢大侠帮忙！