Как Узнать Имя Пользователя?

[Sascha]

Как узнать имя пользователя?

function TForm1.GettingUserName: string;
var
  Size: cardinal;
  pStr: PChar;
  Res: boolean;
begin
   pStr := nil;
   Size := MAX_COMPUTERNAME_LENGTH + 1;
   try
      pStr := StrAlloc( Size );
      Res := GetUserName( pStr, Size );
      if Res then
         Result := StrPas( pStr )
      else
         Result := 'Имя пользователя неизвестно';
   finally
      if pStr <> nil then StrDispose( pStr );
   end;
end;