function GetUserName:ANSIString;
//得到用当前用户名称,希望对你有用。
var
lpName,
lpUserName:PAnsiChar;
lpnLength:DWord;
begin
Result:='';
lpnLength:=0;
lpName:='';
WNetGetUser(nil,nil,lpnLength);
if lpnLength>0 then
begin
GetMem(lpUserName,lpnLength);
if WNetGetUser(lpName,lpUserName,lpnLength)=NO_ERROR then
Result:=lpUserName;
FreeMem(lpUserName,lpnLength);
end;
end;
//得到用当前用户名称,希望对你有用。
var
lpName,
lpUserName:PAnsiChar;
lpnLength:DWord;
begin
Result:='';
lpnLength:=0;
lpName:='';
WNetGetUser(nil,nil,lpnLength);
if lpnLength>0 then
begin
GetMem(lpUserName,lpnLength);
if WNetGetUser(lpName,lpUserName,lpnLength)=NO_ERROR then
Result:=lpUserName;
FreeMem(lpUserName,lpnLength);
end;
end;
解决方案 »
- fastreport4.6.8中的rich显示问题
- 如何实现Frame在XP经典主题下透明
- 100分求高手赐教: 用idSmtp怎么通过Socks5代理发送邮件?
- 如何让程序只运行一次??
- 求控件,EQGrid
- 在哪个网站里可以下栽报警的声音(wav)文件?
- 第一次『散分』,望各位赏脸▲▲▲
- 谁能帮我解决这个问题,我马上给分
- 1.怎样获得所有的ODBC列表?2.怎样在Delphi中运行修改表结构的SQL语句?
- 请问怎样在程序中直接修改数据库中某条记录的值
- 在同一台机子上安装C++Builder6后,Delphi6的WebSnap、WebServices等组件包无法加载
- 初学delphi,问一个数据库简单的问题。
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多,功能完备!★ 浏览帖子速度极快![建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口,可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录!
★ 支持在线检测程序升级情况,可及时获得程序更新的信息。★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]