• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

检测系统是否已安装ADO驱动程序_Delphi

Delphi 搞代码 3年前 (2018-08-09) 297次浏览 已收录 0个评论

    有一些小的程序,需要连接数据库时,我们使用ado进行连接。但有时候,我们是否考虑到系统是否安装了相关的ado驱动程序了呢。如下函数进行这个检测:

function ADOInstalled : Boolean;
var
  r : TRegistry;
  s : string;
begin
  r := TRegistry.create;
  try
      with r do

http://www.gaodaima.com/65636.html检测系统是否已安装ADO驱动程序_Delphi

      begin
        RootKey := HKEY_CLASSES_ROOT;
        OpenKey( ‘/ADODB.Connection/CurVer’, false );
        s := ReadString(”);
        if s <> ” then Result := True
        else Result := False;
        CloseKey;
      end;
  finally
      r.free;
  end;
end;

欢迎大家阅读《检测系统是否已安装ADO驱动程序_Delphi,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址