Capturar Daots

[jhonny]

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

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:

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;