[Neftali [Germán.Estévez]]

Mira que facilito...

Código Delphi [-]
Var
  usuario:array[0..30] of char;
  n:integer;
Begin
  n:=30;
  GetUserName(usuario,n);
End;