GetUserName函数使用？？(50分)

GetUserName函数参数如何给？？<br>pchar类型如何转化为string?

关注。。。

利用强制转换<br>var <br>pchar;<br>s:String;<br>begin<br>&nbsp; &nbsp;s := String(P);<br>&nbsp; &nbsp;GetUserName(s);<br>end;

GetUserName是取登陆Win操作系统的用户名吗？

GetUserName用法 <br>var <br>pchar;<br>len : integer;<br>begin<br>&nbsp; &nbsp;len := 50;<br>&nbsp; &nbsp;GetUserName(p,len);<br>end;

类型转换：<br>var<br>&nbsp; P: PChar;<br>&nbsp; S:String;<br>begin<br>&nbsp; P:='abcdefg';<br>&nbsp; S:=P; &nbsp; //直接将Pchar类型变量的值赋给字符串类型的即可。<br>end;<br><br>至于GetUserName函数，自己看看以下这段帮助：<br>The GetUserName function retrieves the user name of the current thread. This is the name of the user currently logged onto the system. <br><br>BOOL GetUserName(<br><br>&nbsp; &nbsp; LPTSTR lpBuffer, // address of name buffer <br>&nbsp; &nbsp; LPDWORD nSize // address of size of name buffer <br>&nbsp; &nbsp; <br>&nbsp;<br><br>Parameters<br><br>lpBuffer<br><br>Points to the buffer to receive the null-terminated string containing the user's logon name. If this buffer is not large enough to contain the entire user name, the function fails. <br><br>nSize<br><br>Pointer to a DWORD that, on input, specifies the maximum size, in characters, of the buffer specified by the lpBuffer parameter. If this buffer is not large enough to contain the entire user name, the function fails. If the function succeeds, it will place the number of characters copied to the buffer into the DWORD that nSize points to. <br><br>&nbsp;<br><br>Return Values<br><br>If the function succeeds, the return value is nonzero, and the variable pointed to by nSize contains the number of characters copied to the buffer specified by lpBuffer, including the terminating null character. <br>If the function fails, the return value is zero. To get extended error information, call GetLastError.

同意

var<br>&nbsp; &nbsp; &nbsp;len:Cardinal;<br>&nbsp; &nbsp; &nbsp;pchar;<br>begin<br>&nbsp; &nbsp; &nbsp;len:=50;<br>&nbsp; &nbsp; &nbsp;GetUserName(p,len);<br>end;<br>运行出错

var<br>&nbsp; MyName: PChar;<br>&nbsp; Len: DWord;<br>begin<br>&nbsp; Len := 255;<br>&nbsp; GetMem(MyName, Len);<br>&nbsp; GetUserName(MyName, Len);<br>&nbsp; ShowMessage(MyName);<br>&nbsp; FreeMem(MyName);<br>end;<br><br>我试了一下。

多人接受答案了。