如何在inno安装时让两条判断同时生效

Share

现状与想要达到的效果（1或2有1条达到即可）：
1.两条判断，先判断程序是否正在运行时，点“取消”按钮，安装过程不退出，继续后面的过程。
请教：如何修改为点“取消”按钮时安装过程退出。
2.两条判断，先判断是否已经安装原版时，判断程序是否正在运行无效。

1. // 安装时判断程序是否正在运行
   
2. function IsModuleLoaded(modulename: String ): Boolean;
   
3. external 'IsModuleLoaded@files:psvince.dll stdcall';
   
4. 
   
5. 
   
6. function InitializeSetup(): boolean;
   
7. var
   
8. IsAppRunning: boolean;
   
9. begin
   
10. Result:= true;
    
11. IsAppRunning:= IsModuleLoaded('Photoshop.exe'); //程序文件名
    
12. while IsAppRunning do
    
13. begin
    
14. if MsgBox('检测到“Photoshop”正在运行！'#13#13'先关闭“Photoshop”再点击“确定”，'#13'本安装过程将继续！', mbConfirmation, MB_OKCANCEL) = IDOK then
    
15. IsAppRunning:= IsModuleLoaded('Photoshop.exe') //程序文件名
    
16. else
    
17. begin
    
18. IsAppRunning:= false;
    
19. Result:= false;
    
20. 
    
21. 
    
22. // 检测是否已经安装原版
    
23. begin
    
24. Result := true;
    
25. if not RegValueExists(HKLM32, 'SOFTWARE\Ulead Systems\Adobe Photoshop\19.0\Installer','Path') then
    
26. begin
    
27. MsgBox('检测到您的系统内没有安装“Photoshop原版”，请先安装原版，再安装此插件。', mbInformation, MB_OK);
    
28. Result := False;
    
29. end;
    
30. end;
    
31. end;
    
32. end;
    
33. end;

复制代码