[marcoszorrilla]

Código Delphi [-]
Unit Unit8;

Interface
uses
  Windows;

Function GetUserName:String;
implementation

// Funcion que permite obtener el Nombre de Usuario que esta usando el Computador
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;

end.

Un Saludo.