InstallShield 检查是否安装ORACLE或SQL Server

admin

实现原理：判断是否存在，是通过查找注册表是否含有相应标识来判断的。

注意：XP与WIN7系统注册表保存方式不一样，32位与64位操作系统注册表保存方式也不一样，需要分别判断。在此只判断32位操作系统的情况。

源码：

1. ////检查是否有安装Oracle
   
2. function NUMBER CheckOracleISExist()
   
3. STRING svOraclePath,nvValue;
   
4. NUMBER nKeyType,nvType, nvSize;
   
5. begin
   
6. // defaut regedit root
   
7. RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
   
8. //oralce regedit path
   
9. if(RegDBGetKeyValueEx("SOFTWARE\\ORACLE\\ALL_HOMES","DEFAULT_HOME",nvType,nvValue,nvSize) = 0) then
   
10. return 0;
    
11. endif;
    
12. return -1;
    
13. end;
    
14. 
    
15. // SQL Server 2000, SQL Server 2005, SQL Server 2008,
    
16. // SQL Server 2005 Express,SQL Server 2008 Express
    
17. //检查是否有安装SQL Server
    
18. function NUMBER CheckSQLServer()
    
19. STRING nvValue;
    
20. NUMBER nvType, nvSize;
    
21. begin
    
22. //return -1;
    
23. // defaut regedit root
    
24. RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
    
25. // SQL Server 2000
    
26. if(RegDBGetKeyValueEx("SOFTWARE\\Microsoft\\Microsoft SQL Server","InstalledInstances",nvType,nvValue,nvSize) = 0) then
    
27. return 0;
    
28. endif;
    
29. //SQL Server 2005 Version
    
30. if(RegDBGetKeyValueEx("SOFTWARE\\Microsoft\\Microsoft SQL Server 2005 Redist\\BOL\\2052\\CurrentVersion","Version",nvType,nvValue,nvSize) = 0) then
    
31. return 0;
    
32. endif;
    
33. //SQL Server 2008 Express
    
34. //if(RegDBGetKeyValueEx("SOFTWARE\\Microsoft\\Microsoft SQL Server 2008 Redist\\SQLNCLI10\\2052\\CurrentVersion","Version",nvType,nvValue,nvSize) = 0) then
    
35. // return 0;
    
36. //endif;
    
37. // Express
    
38. if(RegDBGetKeyValueEx("SOFTWARE\\Microsoft\\Microsoft SQL Server\SQLEXPRESS\setup","SQLPath",nvType,nvValue,nvSize) = 0) then
    
39. return 0;
    
40. endif;
    
41. return -1;
    
42. end;

复制代码