Inno Setup安装、卸载时判断是否程序正在运行，安装完成时自动打开网页的脚本

[Code]

var

  ErrorCode: Integer;

  IsRunning: Integer;



// 安装时判断客户端是否正在运行

function InitializeSetup(): Boolean;

begin

  Result :=true;  //安装程序继续

  IsRunning:=FindWindowByWindowName('东方宽频网络电视');

  while IsRunning<>0 do

  begin

    if Msgbox('安装程序检测到客户端正在运行。'  #13#13 '您必须先关闭它然后单击“是”继续安装，或按“否”退出！', mbConfirmation, MB_YESNO) = idNO then

    begin

      Result :=false; //安装程序退出

      IsRunning :=0;

    end else begin

      Result :=true;  //安装程序继续

      IsRunning:=FindWindowByWindowName('东方宽频网络电视');

    end;

  end;



end;



// 卸载时判断客户端是否正在运行

function InitializeUninstall(): Boolean;

begin

   Result :=true;  //安装程序继续

  IsRunning:=FindWindowByWindowName('东方宽频网络电视');

  while IsRunning<>0 do

  begin

    if Msgbox('安装程序检测到客户端正在运行。'  #13#13 '您必须先关闭它然后单击“是”继续安装，或按“否”退出！', mbConfirmation, MB_YESNO) = idNO then

    begin

      Result :=false; //安装程序退出

      IsRunning :=0;

    end else begin

      Result :=true;  //安装程序继续

      IsRunning:=FindWindowByWindowName('东方宽频网络电视');

    end;

  end;

end;



procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

begin

  case CurUninstallStep of

    usUninstall:

      begin // 开始卸载



      end;

    usPostUninstall:

      begin      // 卸载完成

        // MsgBox('CurUninstallStepChanged:' #13#13 'Uninstall just finished.', mbInformation, MB_OK);

        // ...insert code to perform post-uninstall tasks here...

        ShellExec('open', 'http://www.baidu.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

      end;

  end;

end;