Foros Club Delphi - Capturar Daots

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Capturar Daots (https://www.clubdelphi.com/foros/showthread.php?t=767)

Necesito capturar el nombre del equipo y el nombre del usuario de Windows, para colocarlo en la ventana principal del aplicativo.

Gracias

Esta funcion de trucomania te servira...
para capturar el nombre del usuario "dueño" del equipo...

Código:

function GetUserName : String;

var 

   pcUser   : PChar;

   dwUSize : DWORD;

begin 

   dwUSize := 21;

   GetMem( pcUser, dwUSize );

   try

      if Windows.GetUserName( pcUser, dwUSize ) then 

         Result := pcUser

   finally

      FreeMem( pcUser );

   end; 

end;

Esta para capturar el usuario que inicio la sesion NT:

-Añade 'Registry' en el uses de tu Form
-Pon un TLabel (Label1) y un TButton (Button1)
-Y pon este código en el OnClick de Button1:

Código:

procedure TForm1.Button1Click(Sender: TObject);

var 

   Registro: TRegistry;

begin 

   Registro := TRegistry.Create;

   Registro.RootKey := HKEY_LOCAL_MACHINE;

   Registro.OpenKey( 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon', False );

   Label1.Caption := Registro.ReadString( 'DefaultUserName' );

   Registro.CloseKey;

   Registro.Destroy;

end;

Y esta ultima para saber el nombre del equipo...

Código:

function GetComputerName : String;

var 

   pcComputer : PChar;

   dwCSize    : DWORD;

begin 

   dwCSize := MAX_COMPUTERNAME_LENGTH + 1;

   GetMem( pcComputer, dwCSize );

   try

      if Windows.GetComputerName( pcComputer, dwCSize ) then 

         Result := pcComputer;

   finally

      FreeMem( pcComputer ); 

   end; 

end;

Ejemplo de llamada:

Código:

Label2.Caption:=GetComputerName;

Espero te sirva pa algo :D:D

Les agradesco muchisimo su colaboración, funciono a la perfección, gracias.

Marcela.:p