| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 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 11:55:15 | ||||
| 4楼： | http://www.vckbase.com/document/viewdoc.asp?id=687 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
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提供大方法解决。 再次表示衷心的感谢！ ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
