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