如何检测ADO是否安装及其版本信息？(200分)

哪位大侠能帮我解决检测ADO是否安装及其版本信息的问题，越快越好！感激不尽！！！

遍历注册表

干什么,又有作弊的?

是因为没有人回答我，自己解决了

找一个ADO的IDISPATACTH
然后创建一个对象看是出错就行了！！

//判断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('');//版本号 如ADODB.Connection.2.5
if s <> '' then
Result := True
else
Result := False;
CloseKey;
end;
finally
r.free;
end;
end;