delphi ODBC DSN 이름 가져오기

355 단어 userDelphi
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;

좋은 웹페이지 즐겨찾기