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

最新推荐文章于 2019-06-18 17:14:00 发布

Augusdi

最新推荐文章于 2019-06-18 17:14:00 发布

阅读量8.4k

点赞数

分类专栏： Install Setup

Install Setup 专栏收录该内容

51 篇文章

订阅专栏

本文介绍了一个程序在安装及卸载过程中如何检测其客户端是否处于运行状态，并提供了相应的处理逻辑。通过循环检测窗口名来判断客户端运行状态，并在安装或卸载前提示用户关闭程序。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var
 
ErrorCode: Integer;
 
IsRunning: Integer; 

// 安装时判断客户端是否正在运行
 
function InitializeSetup(): Boolean;
 
begin
 
Result :=true; //安装程序继续
 
IsRunning:=FindWindowByWindowName('E家人客户端');
 
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('E家人客户端');
 
end;
 
end;
 
end;
 
// 卸载时判断客户端是否正在运行
 
function InitializeUninstall(): Boolean;
 
begin
 
Result :=true; //安装程序继续
 
IsRunning:=FindWindowByWindowName('E家人客户端');
 
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('E家人客户端');
 
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://domain', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
 
end;
 
end;
 
end;