Capturar Daots

Marcela · #1 22-05-2003

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

Gracias

jhonny · #2 22-05-2003

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;

jhonny · #3 22-05-2003

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

Marcela · #4 23-05-2003

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

Marcela.