Ir al contenido


Foto

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


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 10 diciembre 2016 - 04:39

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


delphi
  1. function RegisteredCompany: String;
  2. Var
  3. R: TRegIniFile;
  4. begin
  5. R := TRegIniFile.Create('');
  6. try
  7. R.RootKey := HKEY_LOCAL_MACHINE;
  8. Result := R.ReadString(REG_CURRENT_VERSION + 'CurrentVersion', 'RegisteredOrganization', 'Not Available');
  9. finally
  10. R.Free;
  11. end;
  12. end;

Saludos!


  • 1