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

有一些小的程序，需要连接数据库时，我们使用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.ConnectionCurVer", false );
源代码网推荐 s := ReadString("");
源代码网推荐 if s <> "" then Result := True
源代码网推荐 else Result := False;
源代码网推荐 CloseKey;
源代码网推荐 end;
源代码网推荐 finally
源代码网推荐 r.free;
源代码网推荐 end;
源代码网推荐 end;