如何使用函数getusername

Question

procedure Demo;
var
  UserName: array[0..255] of Char;
  BuffSize: Cardinal;
begin
  BuffSize := SizeOf(UserName);
  ZeroMemory(@UserName, BuffSize);
  GetUserName(@UserName, BuffSize);
  ShowMessage(UserName);
end;

Answer 1

Function GetUserName : String
Var
   TempStr : PChar;
Begin
     GetMem( TempStr, 255 );
     GetUserName( TempStr, 255 );
     Result := StrPas( TempStr );
End;

Answer 2

少了一句
Function GetUserName : String
Var
   TempStr : PChar;
Begin
     GetMem( TempStr, 255 );
     GetUserName( TempStr, 255 );
     Result := StrPas( TempStr );
     FreeMem( TempStr );
End;