1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

procedure TForm1.GetDataSourceNames(System: Boolean);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    if System then
      reg.RootKey := HKEY_LOCAL_MACHINE
    else
      reg.RootKey := HKEY_CURRENT_USER;

    if reg.OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources', False) then
    begin
      if system then reg.GetValueNames(liste1)
      else reg.GetValueNames(liste2);
    end;

  finally
    reg.CloseKey;
    FreeAndNil(reg);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   i : integer;
begin
  liste1 := TStringlist.create;
  liste1.clear;
  liste2 := TStringlist.create;
  liste2.clear;
  //System DSNs in liste1
  ListBox1.Items.Clear;
  ListBox1.Items.Add('SYSTEM DSN :');
  ListBox1.Items.Add(' ');
  GetDataSourceNames(true);
  for i := 0 to liste1.count - 1 do listbox1.items.Add(liste1[i]);
  //User DSNs in liste2
  ListBox1.Items.Add(' ');
  ListBox1.Items.Add('USER DSN :');
  ListBox1.Items.Add(' ');
  GetDataSourceNames(false);
  for i := 0 to liste2.count - 1 do listbox1.items.Add(liste2[i]);
  liste1.free;
  liste2.free;
end;