|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/7/3 23:30:39 |
标题: |
|
加入我的收藏 |
楼主: |
在win2k环境中,想知道操作程序的用户名称,有什么方法?
----------------------------------------------
- |
作者: |
|
2004/7/3 23:39:26 |
1楼: |
好像有两种方法: 一: var sBuffer: PChar; sSize: Cardinal; begin sSize := 255; GetMem(sBuffer, sSize + 1); try if GetComputerName(sBuffer, sSize) then showmessage('本机名:'+sBuffer); finally FreeMem(sBuffer); end;
二: 读注册表。。
----------------------------------------------
Delphi天堂(QQ群):3701818 欢迎您的加入!
|
作者: |
|
2004/7/4 6:51:44 |
2楼: |
大哥,那是机器名,不是用户名
----------------------------------------------
-
|
作者: |
|
2004/7/4 10:43:14 |
3楼: |
呵呵.看错了..不好意思哦..读注册表应该行的...
----------------------------------------------
Delphi天堂(QQ群):3701818 欢迎您的加入!
|
作者: |
|
2004/7/4 17:59:28 |
5楼: |
procedure Tflogin.FormCreate(Sender: TObject); var sBuffer: PChar; sSize: Cardinal; computerusername:string; begin sSize:=255; GetMem(sBuffer,sSize +1); try if GetUserName(sBuffer,sSize) then begin computerusername:=sBuffer; flogin.Edit1.Text:=computerusername; end; finally freeMem(sBuffer); end; end;
----------------------------------------------
-
|
作者: |
|
2004/7/4 19:04:36 |
6楼: |
谢谢诸位关心,问题已按elphiming提供大方法解决。
再次表示衷心的感谢!
----------------------------------------------
-
|
|