怎么得到当前登录的用户名?

Question

怎么得到当前登录的用户名?

Answer 1

?????
你用一个全局变量保存起来不就行了！str := edit1.text;
??

Answer 2

自定义此函数来实现，主要用到Windows.GetUserNamefunction 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;
真接调用就行！！！！