[Nuria]

Hola tulio!

Truco nº 138 de Trucomanía : Obtener el nombre de usuario de windows.

 
 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;

Ejemplo de llamada:

 
   Label1.Caption:=GetUserName;

Salu2!