ADOConnection und GetProviderNames

[caustic]

Folgendes Problem, in den Delphi VCL Komponenten, kann man die für den Connectionstring notwendigen Provider über den Befehl GetProviderNames abrufen und bekommt sie als Stringliste zurück. Jetzt versuche ich gerade etwas ähnliches für eine WinForm Anwendung zu finden.

Bei der Komponente OleDBConnection kann ich ja für den Connectionstring, die Datenverknüpfungseigenschaften im Objektinstpektor aufrufen und dort unter den installierten Treibern wählen, aber wo oder wie bekomme ich diese Liste her.

Ich habe, um mein Datenbanktool, für verschiedene Datenbanken zurüsten, bisher immer die Auswahl des möglichen Providers in einer Combobox anzeigen lassen.
So einfach sah die Funktion früher mal aus:

Delphi-Quellcode:

function TDataMlogin.StrgLstCreate;
 var  Provider : TStrings;
      Index : Integer;
begin
    Provider := TStringList.Create;
    GetProviderNames(Provider);
    for Index := 0 to Provider.Count - 1 do
      begin
        Provider[Index] := Provider[Index] + '.1'
      end;
    result := Provider;
end;

Die alte Funktion kam aus der alten ADODB oder DB Unit und hat dann wie jetzt halt mit den Datenverknüpungseigenschften für den Connectionstring so was produziert
" OraOLEDB.Oracle.1 "

Wie bekomme ich das jetzt ohne VCL hin?

Vielen Dank!
Gruß
caustic