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;