828
社区成员
发帖
与我相关
我的任务
分享Tips 一则:检测系统是否已安装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;
故提供下面的小函数。
在程序中，使用数据库功能前可以先用检查一下，
并给出相应的提示信息给用户。
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;
...全文
