procedure TForm1.Button3Click(Sender: TObject);
Var
reg: TRegistry;
Begin
reg := TRegistry.Create;
With reg Do
Begin
Rootkey := HKEY_CURRENT_USER;
If OpenKey('\Software\ODBC\ODBC.INI', false) Then
Begin
GetKeyNames(Form1.ListBox1.Items);
End;
CloseKey;
Destroy;
End;
end;
delphi 获取ODBC DSN名称
最新推荐文章于 2019-08-20 19:43:00 发布