delphi 获取ODBC DSN名称

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;