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

  • 内容
  • 评论
  • 相关

    有一些小的程序,需要连接数据库时,我们使用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 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 检测系统是否已安装ADO驱动程序_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注