var ErrorCode: Integer; IsRunning: Integer; // 安装时判断客户端是否正在运行 function InitializeSetup(): Boolean; begin Result :=true; //安装程序继续 IsRunning:=FindWindowByWindowName('E家人客户端'); while IsRunning<>0 do begin if Msgbox('安装程序检测到客户端正在运行.' #13#13 '您必须先关闭它然后单击…