安裝時判斷程序是否正在運行
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;