Inno setup卸载前退出进程、删除文件夹

最新推荐文章于 2024-07-18 19:15:02 发布

weixin_30817749

最新推荐文章于 2024-07-18 19:15:02 发布

阅读量837

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/SnailProgramer/p/4175596.html

本文提供了一个卸载程序的实现方法，该程序在启动时会检查是否有主窗口或Connector进程在运行，若存在则提示用户关闭进程，并在用户确认后退出这些进程，最终删除安装目录下的所有文件夹。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

[Code]
function InitializeUninstall(): Boolean;
var MainRun: HWND;
var MVRun:HWND;
begin
// FindWindowByWindowName函数参数为窗口名，即窗口标题，而非进程名。
MainRun := FindWindowByWindowName('主窗口');
MVRun := FindWindowByWindowName('Connector');
if (ScreenRun<>0) or (MVRun<>0) then
  begin
    if Msgbox('安装程序检测到客户端正在运行。' #13#13 '单击“是”关闭进程，继续卸载，或按“否”退出！', mbConfirmation, MB_YESNO) = idNO then
      begin
       Result :=false;                                      // 安装程序退出
      end else
      begin
　　　　 // 如果两个以上的判断条件，在执行时需要分别再进行判断
        if ScreenRun<>0 then
          begin
            PostMessage(MainRun, 18, 0, 0);                 // 退出主进程
          end;
        if MVRun<>0 then
          begin
            PostMessage(MVRun, 18, 0, 0);                   // 退出Connector进程
          end;
        DelTree(ExpandConstant('{app}'), True, True, True); // 退出进程后删除安装位置所有文件夹
        Result :=true;                                      // 安装程序继续
      end;
  end else
      begin
       Result :=true;                                       // 若未检测到进程，则继续安装程序 
      end;
end;