Delphi World - Получаем имена ODBC-источников
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Получаем имена ODBC-источников


uses Registry; 

procedure TForm1.GetDataSourceNames(System: Boolean); 
var 
  reg: TRegistry; 
begin 
  ListBox1.Items.Clear; 

  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 
      reg.GetValueNames(ListBox1.Items); 
    end; 

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

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  //Системные DSNs 
  GetDataSourceNames(True); 
  //Пользовательские DSNs 
  GetDataSourceNames(False); 
end;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования