第45题）：如何获取当前登陆操作系统的用户名？

Question

第45题）：如何获取当前登陆操作系统的用户名？
简单题望赐教！

Answer 1

function GUserName: String;
var
  pcUser   : PChar;
  dwUSize : DWORD;
begin
  dwUSize := 21;
  result:='';
  GetMem( pcUser, dwUSize );
  try
    if Windows.GetUserName( pcUser, dwUSize ) then
      Result := pcUser
  finally
     FreeMem( pcUser );
  end;
end;