Hola a mi mismo, jeje
por si alguien lo necesita aqui esta el codigo q yo mismo preguntaba como hacer.
procedure TFrmActualiza.getValues( rootKey : HKEY; key : string; displayValues : TStrings );
var
reg : TRegistry;
regDataType : TRegDataType;
listValues : TStringList;
i : integer;
begin
reg := nil;
try
reg := TRegistry.Create( KEY_QUERY_VALUE );
reg.RootKey := rootKey;
if( reg.OpenKeyReadOnly( key ) ) then
begin
try
listValues := TStringList.Create;
reg.GetValueNames( listValues );
displayValues.Assign( listValues );
finally
reg.CloseKey;
end;
end;
finally
reg.Free;
end;
end;
y para llamarlo
usar cualquira de los dos, segun la necesidad.
1) getValues( HKEY_CURRENT_USER, 'Software\ODBC\ODBC.INI\ODBC Data Sources', ComboBox1.Items );
2) getValues( HKEY_LOCAL_MACHINE, 'SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources', ComboBox1.Items );
Saludos...
Ariel Olea
