B babyboom Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-14 #1 我使用的是win2000，此机器在局域网中，现在我想做一个程序， 能够显示登陆我操作系统的用户名信息，请问有什么好的办法？？？ 应该怎么做？？？
B babyboom Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-14 #4 能说的详细点么！！！ 这个问题我可以说一点都不懂！！
M micony Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-15 #6 函数是：BOOL GetUserName( ; LPTSTR lpBuffer, ;// address of name buffer ; LPDWORD nSize ; ; // address of size of name buffer ); 给你个例子： var ; p: PChar; ; s: Integer; begin ; GetMem(p, 256); ; try ; ; if GetUserName(p, s) then ; ; ; ShowMessage(p) ; ; else ; ; ; ; ShowMessage('Failed!'); ; finally ; ; FreeMem(p); ; end; end;
函数是：BOOL GetUserName( ; LPTSTR lpBuffer, ;// address of name buffer ; LPDWORD nSize ; ; // address of size of name buffer ); 给你个例子： var ; p: PChar; ; s: Integer; begin ; GetMem(p, 256); ; try ; ; if GetUserName(p, s) then ; ; ; ShowMessage(p) ; ; else ; ; ; ; ShowMessage('Failed!'); ; finally ; ; FreeMem(p); ; end; end;
L lww Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-16 #7 来晚了，楼上的哥们说的对，不过补充一下 //Header: Declared in Winnetwk.h. //Library: Use Mpr.lib.
B babyboom Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-17 #8 micony我编译怎么不能通过？？？ ; ; if GetUserName(p, s) then ;这句老是报错，参数没有声明？？怎么回事？？？ 昏！！！！！！ lww 你说的是什么意思？？？ 在哪添加？？
micony我编译怎么不能通过？？？ ; ; if GetUserName(p, s) then ;这句老是报错，参数没有声明？？怎么回事？？？ 昏！！！！！！ lww 你说的是什么意思？？？ 在哪添加？？
H hylwy Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-26 #10 关于参数没有声明的问题： micony所定义的函数名与系统定义的重名了！
S sisha Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-29 #12 function 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;
function 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;
