Registro de windows

[[nlsgarcia]]

KroSaver,

Empezado por KroSaver

...intento sacar el nombre de usuario atravez del registro de win usando apis en delphi...

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   Reg: TRegistry;

begin

   Reg := TRegistry.Create;

   try

      Reg.RootKey := HKEY_LOCAL_MACHINE;

      if Reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows NT\CurrentVersion') then
      begin
         ShowMessage(Reg.ReadString('RegisteredOwner'));
         Reg.CloseKey;
      end;

   finally

      Reg.Free;

   end;

end;

El código anterior lee un valor particular del Registro de Windows por medio de la clase TRegistry.

Empezado por Delphi Help

TRegistry is a low-level wrapper for the system registry and functions that operate on the registry.

Espero sea útil

Nelson.

[ecfisa]

Empezado por KroSaver

...intento sacar el nombre de usuario atravez del registro de win usando apis en delphi...

Hola KroSaver.

Código Delphi [-]
...
{$WARNINGS OFF}

function ReadRegistryValue(const aKEY: HKEY; const lpSubkey, lpValueName: PChar): string;
var
  lpType   : DWORD;
  lpcbData : DWORD;
  lpData   : PChar;
  phkResult: HKEY;
begin
  if RegOpenKeyEx(aKEY, lpSubkey, 0, KEY_READ, phkResult) = ERROR_SUCCESS then
  begin
    SetLastError(RegQueryValueEx(phkResult, lpValueName, nil, @lpType, nil, @lpcbData));
    if GetLastError = ERROR_SUCCESS then
    begin
      GetMem(lpData, lpcbData);
      try
        RegQueryValueEx(phkResult, lpValueName, nil, nil, PBYTE(lpData), @lpcbData);
        Result := StrPas(lpData)
      finally
        FreeMem(lpData)
      end
    end
    else
      raise Exception.Create('No se pudo obtener el valor de ' + StrPas(lpValueName));
    RegCloseKey(phkResult);
  end;
end;

Llamada de ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  SubKey, ValueName: string;
begin
  SubKey    := 'SOFTWARE\Microsoft\Windows NT\CurrentVersion';
  ValueName := 'RegisteredOwner';
  ShowMessage('Propietario registrado: '+
    ReadRegistryValue(HKEY_LOCAL_MACHINE, PChar(SubKey), PChar(ValueName)));
end;

Saludos.

[KroSaver]

Gracias a los 2!

ecfisa buen code pero me sigue dando microsoft en vez del usuario que tengo!

saludos

[ecfisa]

Empezado por KroSaver

Gracias a los 2!

ecfisa buen code pero me sigue dando microsoft en vez del usuario que tengo!

saludos

Hola KroSaver.

Que cosa mas extraña...

Probé la función también en Windows XP y Vista y obtengo el nombre del propietario de forma correcta (verificado con regedit).

¿ Seguro que ValueName contiene el valor que esperas ?

Saludos.

[KroSaver]

Empezado por ecfisa

Hola KroSaver.

Que cosa mas extraña...

Probé la función también en Windows XP y Vista y obtengo el nombre del propietario de forma correcta (verificado con regedit).

¿ Seguro que ValueName contiene el valor que esperas ?

Saludos.

Si bueno estuvimos provando con un amigo e hicimos codes en c y en delphi y esta pasando algo muy raro, si yo compilo el codigo de c en mi equipo siempre me debuelve microsoft pero si el me pasa el exe compilado me debuelve bien el nombre de usuario , el en su equipo no puede conseguir el ProductName que es el sistema operativo que se esta usando pero yo si.

Es muy raro nunca tuve este problema!

saludos

[ecfisa]

Hola KroSaver.

Me olvidé de comentarte que las pruebas que hice hace un rato sobre XP, Vista y W7 son S.O. de 32 bits. No tengo forma en este momento de comprobar que trabaje bién en S.O. de 64 bits.

Saludos.

[KroSaver]

Empezado por ecfisa

Hola KroSaver.

Me olvidé de comentarte que las pruebas que hice hace un rato sobre XP, Vista y W7 son S.O. de 32 bits. No tengo forma en este momento de comprobar que trabaje bién en S.O. de 64 bits.

Saludos.

El sistema que uso es 64Bits Windows 7 y Windows 8 y el xp es 32 bits.

saludos