谁知道查找该机器里的ado和office是否安装的api函数(100分)

帮助啊~~~~~~
如果写一下你是怎么查到这个函数我会加分的~~~~~~呵呵~!
我做的程序安装的时候需要检测是否安装过ado和office,所以必须知道他们是否安装，望
各位高手指点

查注册表，下面是个简单的例子

procedure TForm1.Button1Click(Sender: TObject);
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
ShowMessage( s )
else
ShowMessage( 'Not installed' );
CloseKey;
end;
finally
r.free;
end;
end;

我想找个win api函数
你那个解决方法完全可行，但是，我想是知道怎么查win api函数

没有直接查ado和office是否安装的api函数。
有查注册表的WINAPI。

好啦，谢谢大家，谢谢~