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

Code:

function GetUserFromWindows: string;

var

UserName : string;

UserNameLen : Dword;

begin

UserNameLen := 255;

SetLength(userName, UserNameLen);

if GetUserName(PChar(UserName), UserNameLen) then

   Result := Copy(UserName,1,UserNameLen - 1)

else

   Result := '';

end;

Code:

function GetCurrentUserName: string;

const

  cnMaxUserNameLen = 254;

var

  sUserName: string;

  dwUserNameLen: DWORD;

begin

  dwUserNameLen := cnMaxUserNameLen - 1;

  SetLength(sUserName, cnMaxUserNameLen);

  GetUserName(PChar(sUserName), dwUserNameLen);

  SetLength(sUserName, dwUserNameLen);

  Result := sUserName;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  ShowMessage(GetCurrentUserName);

end;