INNO setup安装卸载钱判断进程中是否在运行总结

admin

1.安装前判断进程中是否有程序在运行。

1. 
   
2. [files]
   
3. 
   
4. ; 安装前判断进程，dll文件放在inno的安装目录中
   
5. Source: compiler:psvince.dll; Flags: dontcopy noencryption
   
6. 
   
7. [Code]
   
8. //安装前判断是否有进程正在运行
   
9. function IsModuleLoaded(modulename: String ): Boolean;
   
10. external 'IsModuleLoaded@files:psvince.dll stdcall setuponly';
    
11. function InitializeSetup(): boolean;
    
12. var
    
13. IsAppRunning: boolean;
    
14. begin
    
15. Result:= true;
    
16. IsAppRunning:= IsModuleLoaded('WordTutor.exe');
    
17. while IsAppRunning do
    
18. begin
    
19. if MsgBox('快乐背单词正在运行,请先关闭它!', mbConfirmation, MB_OKCANCEL) = IDOK then
    
20. IsAppRunning:= IsModuleLoaded('WordTutor.exe')
    
21. else
    
22. begin
    
23. IsAppRunning:= false;
    
24. Result:= false;
    
25. end;
    
26. end;
    
27. end;
    

复制代码

2.卸载前判断进程中是否在运行。

1. 
   
2. // 卸载前判断进程是否在运行.与安装相同的dll文件和需要打包的安装文件放在一起，也就是和.exe文件一起
   
3. 
   
4. [code]
   
5. 
   
6. function IsModuleLoadedU(modulename: String ): Boolean;
   
7. external 'IsModuleLoaded@{app}\psvince.dll stdcall uninstallonly';
   
8. function InitializeUninstall(): boolean;
   
9. var
   
10. IsAppRunning: boolean;
    
11. begin
    
12. Result:= true;
    
13. IsAppRunning:= IsModuleLoadedU('WordTutor.exe');
    
14. while IsAppRunning do
    
15. begin
    
16. if MsgBox('快乐背单词正在运行,请先关闭它!', mbConfirmation, MB_OKCANCEL) = IDOK then
    
17. IsAppRunning:= IsModuleLoadedU('WordTutor.exe')
    
18. else
    
19. begin
    
20. IsAppRunning:= false;
    
21. Result:= false;
    
22. end;
    
23. end;
    
24. end;

复制代码