Получаем имена 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com