安装、卸载时判断程序是否在运行

安装时判断程序是否正在运行

 function InitializeSetup(): Boolean;

 begin

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

   IsRunning:=FindWindowByWindowName('窗口标题');

 

   while IsRunning<>0 do

   begin

     if Msgbox('Setup has detected WinX DVD Copy Por is running,'  #13#13 'You have to close it, and then click "Yes" to continue the installation, or click "No" to exit.', 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('Setup has detected WinX DVD Copy Pro is running,'  #13#13 'You have to close it, and then click "Yes" to uninstall, or click "No" to exit.', mbConfirmation, MB_YESNO) = idNO then

     begin

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

       IsRunning :=0;

     end else begin

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

       IsRunning:=FindWindowByWindowName('窗口标题');

     end;

   end;

 end;