List of Oracle Homes - will be used by custom logon form

[DuckyDuck]

Is it possible to get a list of available Oracle Homes from ODAC ?

I want my allow the user to select from a list of available Oracle Homes in a custom logon form. To do this, I need to first get a list of the Oracle Home

thanks

Environment
Delphi 2009

[bork]

You can use the following code to get the list of Oracle Homes:

uses
OraCall;

...


function GetHomeList: TStrings;
var
i: integer;
begin
if not LoadedOCI then
try
DetectOCI; // to show homes info
except
end;

Result := TStringList.Create;
for i := 0 to Length(OracleHomeNames) - 1 do
if OracleHomeNames '' then
Result.Add(OracleHomeNames);
end;