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

function CurrentUserNameShort: String;
  var
    dwSize: Cardinal;
begin
  dwSize := MAX_PATH;
  SetLength(Result,dwSize);
  if GetUserName(PChar(Result),dwSize) then
    Result := PChar(Result)
  else
    Result := '';
end;