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

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