No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Leer la Empresa u Organizacion Registrada del Registro de Windows.

delphi

function RegisteredCompany: String;
Var
  R: TRegIniFile;
begin
  R := TRegIniFile.Create('');
  try
    R.RootKey := HKEY_LOCAL_MACHINE;
    Result := R.ReadString(REG_CURRENT_VERSION + 'CurrentVersion', 'RegisteredOrganization', 'Not Available');
  finally
    R.Free;
  end;
end;

Saludos!