So bekommst Du die Namen der
ODBC-Verbindungen:
Delphi-Quellcode:
function GETDBS(
var ll:tstringlist):boolean;
var
reg : tregistry;
begin
result:=true;
reg:=tregistry.create;
reg.rootkey:=HKEY_LOCAL_MACHINE;
if reg.openkeyreadonly('
\SOFTWARE\ODBC\ODBC.INI\ODBC DATA sources')
then begin
reg.getvaluenames(ll);
end
else result:=false;
reg.closekey;
reg.free;
end;
Und im Anhang Tabellen und Felder aus einer Oracle-
DB.
Ich nutze zwar mODBC aber da kannst Du ohne große Probleme auf
ADO umsteigen.
Gruß
K-H