zoukankan      html  css  js  c++  java
  • InstallShield高级应用检查是否安装ORACLE或SQL Server

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

    注意: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;

    作者:chhuic

    出处:http://chhuic.cnblogs.com
    本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。

  • 相关阅读:
    【原】如何实现IE6下块级元素的内容自动收缩
    【原】常见的模块,你语义化了没
    【转】CSS Nuggest
    那年,寻找工作的历程
    前端开发小工具SuperApp——Ctrl+S自动刷新浏览器
    【转】在html中引入CSS的方法
    HTML中常用的实体字符
    imemode:disabled 禁止表单使用文本框输入法
    【原】工作中常用win7快捷键
    复制本地文件完整路径
  • 原文地址:https://www.cnblogs.com/chhuic/p/2495631.html
Copyright © 2011-2022 走看看