是ADO吧,,注册表的HKEY_LOCAL_MACHINE\Software\Microsoft\DataAccess下有Version项, uses Registry; procedure TForm1.Button1Click(Sender: TObject); var reg:Tregistry; KeyList: TStringList; i: Integer; begin reg:=Tregistry.create; KeyList := TStringList.Create; reg.RootKey := HKEY_LOCAL_MACHINE; reg.openkey('Software\Microsoft\DataAccess', False); reg.GetValueNames(KeyList); for i := 0 to KeyList.Count - 1 do begin if KeyList[i] = 'Version' then ShowMessage(reg.ReadString(KeyList[i])); end; reg.CloseKey; reg.free; KeyList.Free; end; 读取这里的值就好了改了一下别人写的读取注册表的代码
uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
var reg:Tregistry;
KeyList: TStringList;
i: Integer;
begin
reg:=Tregistry.create;
KeyList := TStringList.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.openkey('Software\Microsoft\DataAccess', False);
reg.GetValueNames(KeyList);
for i := 0 to KeyList.Count - 1 do
begin
if KeyList[i] = 'Version' then
ShowMessage(reg.ReadString(KeyList[i]));
end;
reg.CloseKey;
reg.free;
KeyList.Free;
end;
读取这里的值就好了改了一下别人写的读取注册表的代码
ShowMessage(ADOConnection1.Version);
版本:2.8