Program Files目录可从注册表HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion中获得
哈哈,简单 function ADOInstalled: Boolean; //返回是否安装了ado 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;
function ADOInstalled: Boolean; //返回是否安装了ado
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;
怎么办??