是高手都会的问题？

Question

怎样获得Windows当前的用户名。

Answer 1

function CI_GetComputerName():String;
var
  pCompName:array [0..MAX_COMPUTERNAME_LENGTH] of char;
  nCompNameSize:DWORD;
begin
  nCompNameSize:=MAX_COMPUTERNAME_LENGTH;
  if GetComputerName(pCompName,nCompNameSize) then begin
    Result:=StrPas(pCompName);
  end;
end;

Answer 2

var
  pUserName:array [0..MAX_USERNAME_LENGth] OF CHAR;
  nUserNameLen:DWORD;
begin
  if GetUserName(pUserName,nUserNameLen) then
    Result:=StrPas(pUserName);
end;

Answer 3

真受不了
procedure TForm1.Button1Click(Sender: TObject);
var
  UserName: PChar;
  Len: Cardinal;
begin
  GetMem(UserName, 254);
  try
    GetUserName(UserName, Len);
    ShowMessage(UserName);
  finally
    FreeMem(UserName);
  end;
end;