[Assistant]

вот как-то так:

Код:

var
  UserName: array[0..255] of char;
  Buf: DWord;
begin
  Buf := 255;  

  GetUserName(UserName,Buf);

  ShowMessage(UserName);
end;