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

浏览数：263 / 时间：2015年06月20日

[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;