在程序中怎样得到登录WINDOWS域后的用户名?(200分)

在程序中怎样得到登录WINDOWS域后的用户名?

不知道是不是这个：<br><br>function GUserName: String;<br>var<br>&nbsp; pcUser &nbsp; : PChar;<br>&nbsp; dwUSize : DWORD;<br>begin<br>&nbsp; dwUSize := 21;<br>&nbsp; result:='';<br>&nbsp; GetMem( pcUser, dwUSize );<br>&nbsp; try<br>&nbsp; &nbsp; if Windows.GetUserName( pcUser, dwUSize ) then<br>&nbsp; &nbsp; &nbsp; Result := pcUser<br>&nbsp; finally<br>&nbsp; &nbsp; &nbsp;FreeMem( pcUser );<br>&nbsp; end;<br>end;

我试了一下，也可以<br>但我见到一些资料说用这个WnetGetUser(),却反倒怎么都不能得到正确结果

接受答案了，谢谢！