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

function ADOInstalled : Boolean;
var
  r : TRegistry;
  s : string;
begin
  r := TRegistry.create;
  try
      with r do
      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;