Узнать имя пользователя (проверьте на корректность функцию)

[Kronos913]

Сделал вот такую вот функцию, переделывая код с другого форума
Вопрос: корректен ли этот код, или я не учёл какие-то возможные ошибки?

Function GetWindowsCurrentUser(var s:string):boolean;
var
  w:dword;
begin
  w:=255;
  SetLength(s, w);
  If GetUserName(pChar(s), w) then begin
    SetLength(s, w-1);
    Result:=true;
  end else begin
    s:='';
    Result:=false;
  end;
end;

[DIONISKA]

Ваш код вернёт ERROR_INSUFFICIENT_BUFFER если имя будет длинной 255 символов, так как по идее максимальный размер = UNLEN(=255)+1=256. А вобще я-бы порекомендовал сделать примерно так:

function myGetUserName(var uname:string):Boolean;
var
  buff:PChar;
  sz:DWORD;
begin {исп: Winapi.Windows.GetUserName}
  sz:=0;
  GetUserName(nil, sz); //получить размер буфера
  buff:=StrAlloc(sz);
  try
    Result:=GetUserName(buff,sz);
    if Result then
      uname:=string(buff);
  finally
   StrDispose(buff);
  end;
end;