联系我们

工作时间: 8:30 - 22:00

客服电话: 400-660-0108

kefu@csdn.net 在线客服

关于我们
招贤纳士
商务合作
寻求报道
协议专区

友情链接
视觉中国
500px
直聘网
优设网
CSDN文库
CSDN下载
CSDN问答
京ICP备19004658号
经营性网站备案信息
公安备案号11010502030143
营业执照
北京互联网违法和不良信息举报中心
家长监护
中国互联网举报中心
网络110报警服务
Chrome商店下载
账号管理规范
版权与免责声明
版权申诉
出版物许可证
©1999-2026北京创新乐知网络技术有限公司

数据库相关

全部
Ada助手

社区 >数据库相关 >帖子详情

如何用Delphi编程序取得Windows2000登录用户的用户名？

2003-01-24 10:09:30 183 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

wuyunliangcsdn 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网我也要 → 关注 + 加入社区

【论文学习】《Fully-Convolutional Siamese Networks for Object Tracking》2016年SiamFC 全卷积孪生网络用于目标跟踪在这项工作中，我们脱离了跟踪中采用的传统在线学习方法，并展示了一种专注于在离线阶段学习强嵌入的替代方法。与在分类设置中的使用不同，我们证明，对于跟踪应用，孪生全卷积深度网络能够更有效地使用可用数据。这不仅反映在测试时，通过执行有效的空间搜索，也反映在训练时，其中每个子窗口都有效地代表一个有用的样本，而几乎没有额外的成本。实验表明，深度嵌入为在线跟踪器提供了自然丰富的特征来源，并使简单的测试时策略表现良好。我们相信这种方法是对更复杂的在线跟踪方法的补充，并期望未来的工作能够更彻底地探索这种关系。阅读详情

如何用Delphi编程序取得Windows2000登录用户的用户名？

...全文

配置赞助广告

AnyGrasp实战指南：从环境配置到抓取检测与跟踪本文详细介绍了AnyGrasp从环境配置到抓取检测与跟踪的实战指南。涵盖硬件要求、关键依赖安装避坑、抓取检测与跟踪的实战技巧，以及常见问题解决方案和性能优化建议，帮助开发者快速掌握这一高精度物体抓取检测与跟踪技术。阅读详情

相关推荐

橙色装修公司工作总结PPT模板.pptx

橙色装修公司工作总结PPT模板.pptx

weixin_44536917

橙色装修公司工作总结PPT模板

这是一套橙色扁平化设计风格的，装修公司工作总结PPT模板。第一PPT模板网提供精美装修公司幻灯片模板免费下载；关键词：装修公司、设计图纸幻灯片背景图片，橙色扁平化PPT图表大全，动态家具类幻灯片模板免费下载，.PPTX格式；

weixin_38720009

橙色装修公司工作总结PPT模板.zip

这是一套橙色扁平化设计风格的，装修公司工作总结PPT模板。第一PPT模板网提供精美装修公司幻灯片模板免费下载；关键词：装修公司、设计图纸幻灯片背景图片，橙色扁平化PPT图表大全，动态家具类幻灯片模板免费下载，.PPTX格式；

weixin_39840387

橙色通用工作总结汇报PowerPoint模板.zip

这是一套橙色通用工作总结汇报PowerPoint模板，第一PPT模板网提供精美商务幻灯片模板免费下载；关键词：橙色通用商务幻灯片模板，微立体工作总结汇报PPT模板，.PPTX格式；

weixin_39841882

橙色通用工作总结汇报PowerPoint模板

这是一套橙色通用工作总结汇报PowerPoint模板，第一PPT模板网提供精美商务幻灯片模板免费下载；关键词：橙色通用商务幻灯片模板，微立体工作总结汇报PPT模板，.PPTX格式；

weixin_38673548

2

已收藏

如何用Delphi编程序取得Windows2000登录用户的用户名？

如何用Delphi编程序取得Windows2000登录用户的用户名？

复制链接

扫一扫

返回顶部

数据库相关 · 2,508 成员 · 88,437 内容

+ 关注 + 加入社区

评论 2

切换为时间正序

wuyunliangcsdn 2003-01-24

打赏
举报

回复

非常感谢，我一定会给你加分（看一下其他朋友有什么高招）。

Billy_Chen28 2003-01-24

打赏
举报

回复

试试以下函数：
function GetCurrentUserName : string;
const
cnMaxUserNameLen = 254;
var
sUserName : string; dwUserNameLen : DWord;
begin
dwUserNameLen := cnMaxUserNameLen-1;
SetLength( sUserName, cnMaxUserNameLen );
GetUserName( PChar( sUserName ), dwUserNameLen ); SetLength( sUserName, dwUserNameLen );
Result := sUserName;
end;

或：
//================================================================
// Function: GetMachine()
// 获取本机器的名称
// 参数：无
// 返回：string
// 完成度：95%
//================================================================

function GetMachine: string;
var
n: dword;
buf: pchar;
const
rkMachine = {HKEY_LOCAL_MACHINE}
'\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName';
rvMachine = 'ComputerName';
begin
n := 255;
buf := stralloc(n);
GetComputerName(buf, n);
result := buf;
strdispose(buf);
with TRegistry.Create do
begin
rootkey := HKEY_LOCAL_MACHINE;
if OpenKeyReadOnly(rkMachine) then
begin
if ValueExists(rvMachine) then
result := ReadString(rvMachine);
closekey;
end;
free;
end;
end;

//================================================================
// Function: GetUser()
// 获取系统中，当前用户的用户名
// 参数：无
// 返回：string
// 完成度：95%
//================================================================

function GetUser: string;
var
n: dword;
buf: pchar;
begin
n := 255;
buf := stralloc(n);
GetUserName(buf, n);
result := buf;
strdispose(buf);
end;