Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Базы данных \ ODBC \ Получаем имена ODBC-источников

Получаем имена 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('SoftwareODBCODBC.INIODBC 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;

Название: Получаем имена ODBC-источников
Дата публикации: 2004-03-17 (2759 Прочтено)

 
 

 

Page generation 0.030 seconds