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

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

 

源码：

检查是否有安装Oracle 

function NUMBER CheckOracleISExist() 

STRING svOraclePath,nvValue;

NUMBER nKeyType,nvType, nvSize;

begin

// defaut regedit root

RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE); 

//oralce regedit path 

if(RegDBGetKeyValueEx("SOFTWARE\\ORACLE\\ALL_HOMES","DEFAULT_HOME",nvType,nvValue,nvSize) = 0) then

return 0;

endif;

return -1;

end;

// SQL Server 2000, SQL Server 2005, SQL Server 2008,

// SQL Server 2005 Express,SQL Server 2008 Express 

//检查是否有安装SQL Server 

function NUMBER CheckSQLServer() 

STRING nvValue;

NUMBER nvType, nvSize;

begin

//return -1;

// defaut regedit root

RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE); 

// SQL Server 2000 

if(RegDBGetKeyValueEx("SOFTWARE\\Microsoft\\Microsoft SQL Server","InstalledInstances",nvType,nvValue,nvSize) = 0) then

return 0;

endif;

//SQL Server 2005 Version

if(RegDBGetKeyValueEx("SOFTWARE\\Microsoft\\Microsoft SQL Server 2005 Redist\\BOL\\2052\\CurrentVersion","Version",nvType,nvValue,nvSize) = 0) then

return 0;

endif; 

//SQL Server 2008 Express 

//if(RegDBGetKeyValueEx("SOFTWARE\\Microsoft\\Microsoft SQL Server 2008 Redist\\SQLNCLI10\\2052\\CurrentVersion","Version",nvType,nvValue,nvSize) = 0) then

// return 0;

//endif; 

// Express

if(RegDBGetKeyValueEx("SOFTWARE\\Microsoft\\Microsoft SQL Server\SQLEXPRESS\setup","SQLPath",nvType,nvValue,nvSize) = 0) then

return 0;

endif;

return -1;

end;