1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function CurrentUserName: String;
var
  u: array[0..127] of Char;
  sz: DWord;
begin
  sz:=SizeOf(u);
  GetUserName(u,sz);
  Result:=u;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   ShowMessage(CurrentUsername);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

////////////////////////////////////////////////////////////////////////////////
// Procedure : UserName
// Comment   : Returns the name of the currently loggon user

function GetCurrUserName: String;
var
  Size: DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if GetUserName(PChar(Result), Size) then
    SetLength(Result, Size)
  else
    Result := '';
end;