Código Delphi
[-]
procedure TfrmMain.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;
Lo mandas llamar con
Código Delphi
[-]procedure TfrmMain.Button1Click(Sender: TObject);
begin
getValues( HKEY_LOCAL_MACHINE, 'SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources', ListBox1.Items );
end;