本文提供了一种在安装或卸载过程中检查特定程序是否正在运行的方法。通过循环调用FindWindowByWindowName函数并显示提示消息来确认用户是否已关闭程序，从而确保安装或卸载过程能够顺利进行。
安装时判断程序是否正在运行
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;
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
