-
等级
本版专家分：132结帖率 100% -
如何用Delphi编程序取得Windows2000登录用户的用户名？展开阅读全文
-
等级
本版专家分：74093勋章
-
-
金牌
2003年2月 总版技术专家分月排行榜第一
2003年1月 总版技术专家分月排行榜第一
-
-
红花
2003年2月 Delphi大版内专家分月排行榜第一
2003年1月 Delphi大版内专家分月排行榜第一
2002年12月 Delphi大版内专家分月排行榜第一
-
- 蓝花 2002年6月 Delphi大版内专家分月排行榜第三
-
-
试试以下函数：
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;
-
等级
本版专家分：132
-
非常感谢，我一定会给你加分（看一下其他朋友有什么高招）。
- 如何利用API获取WINDOWS系统所有用户名和密码(做过的朋友进来看看)
如何利用API获取WINDOWS系统所有用户名和密码(做过的朋友进来看看) Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiAPI/html/delphi_20061110172545256.html 如何利用API获取WINDOWS系统所有用户名和...
- 获得WINDOWS下所有用户的信息
使用API中的函数:NetUserEnum来枚举用户；NetUserGetInfo来获取用户的信息. 思路应该是这样的。 以下为Windows Conlse Appilication下的枚举所有用户信息的代码（帐户名、帐户状态、是否需要密码（此处可能判断不...
- 自己写的一个DELPHI 控制台程序
// 经过整理的DELPHI控制台程序，体积小，功能不少。呵呵 --XIAO 2013.5 program Console; {$APPTYPE CONSOLE} uses Windows,SysUtils,TLHelp32; {$R *.RES} function GetWinDir: string; var Buf: ...
- 一个简单的DELPHI程序注册码设计 .
当你辛辛苦苦用DELPHI做好了一个你认为十分不错的程序,你是否想把它发布出去成为共享软件呢 做为一个共享软件,注册码肯定是少不了的,你可以通过判断程序是否注册来进行功能,时间或一些其它限制.现在就介绍一种简单...
- 几个获取Windows系统信息的Delphi程序
1、获取Windows版本信息 可以通过Windows API函数GetVersionEx来获得。 具体程序如下： Procedure Tform1.Button1Click(sender:TObject); Var OSV
- DELPHI中的键盘操作
在Windows大行其道的今天，windows界面程序受到广大用户的欢迎。对这些程序的操作不外乎两种，键盘输入控制和鼠标输入控制。有时，对于繁杂的，或重复性的操作，我们能否通过编制程序来代替手工输入，而用程序来模拟...
- 043_《Delphi程序开发范例宝典(第2版)》
《Delphi程序开发范例宝典(第2版)》 Delphi 教程 系列书籍 (043) 《Delphi程序开发范例宝典(第2版)》 网友（邦）整理 EMail: shuaihj@163.com 下载地址： Part1 Part2 Part3 作者： 梁水 丛书名： 软件...
- Delphi应用程序的Help编程
转自：http://spaces.msn.com/OnlyDelphi/ Delphi应用程序的Help编程 以前做的帮助都是用第三方的工具做
- 常见加解密算法及Delphi应用程序图标总结
对称加密算法 对称加密算法用来对敏感数据等信息进行加密...3DES（Triple DES）：是基于DES，对一块数据用三个不同的密钥进行三次加密，强度更高。 AES（Advanced Encryption Standard）：高级加密标准，是下一代
- 一个简单的DELPHI程序注册码设计
当你辛辛苦苦用DELPHI做好了一个你认为十分不错的程序,你是否想把它发布出去成为共享软件呢 做为一个共享软件,注册码肯定是少不了的,你可以通过判断程序是否注册来进行功能,时间或一些其它限制.现在就介绍一种简单...
- 浅谈用delphi来编写蠕虫病毒
第一反应就是可能是用asm来编写，或者是vbsript，而高级语言如delphi就好象不能编写一样，其实事实并不是这个样子的，只要我们花一些时间，照样可以写出简短而高效的病毒程序来，一点也不输那些用汇编写出来的程序哦...
- 086_《版主答疑-Delphi高级编程技巧》
《版主答疑-Delphi高级编程技巧》 Delphi 教程 系列书籍 (086) 《版主答疑-Delphi高级编程技巧》 网友（邦）...出版日期：2000年4月 ISBN：730200899 页数：568 装帧：精装 开本：16开 版次：1 内容简介 Delphi是Inpri
- [开源]Delphi下WinPCap开发基础 一个简单的HttpSniffer
Delphi开发WinPcap程序一直是个门槛，这个代码之前在netexpert发过，但是问“如何用Delphi写网络协议分析？”、“Delphi怎么发送ARP包”这类问题的人还是大有人在。Delphi不能开发Sniffer？不能进行底层数据包收发？...
- 浅谈用delphi来编写蠕虫病毒
第一反应就是可能是用asm来编写，或者是vbsript，而高级语言如delphi就好象不能编写一样，其实事实并不是这个样子的，只要我们花一些时间，照样可以写出简短而高效的病毒程序来，一点也不输那些用汇编写出来的程序哦...
- 《Delphi程序开发范例宝典(第3版)》.(明日科技).[PDF]&ckook
为什么80%的码农都做不了架构师？>>> ...
- delphi 操作注册表详解
32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。 一、创建和释放TRegistry对象 1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：ARegistry := TRegistry.Cre
- Delphi2007开发WebService调用COM+无响应现象分析
最近正在Delphi2007开发一个Web Service，由于系统不仅要在Intranet中使用，还要在Internet中使用，如果服务端用COM+的话客户端的分发、防火墙的透过、安全部署等等都是非常难以解决的问题，而如果单纯使用Web ...
- delphi windows操作
输入 procedure TypeKeyString(s: string); var c: Char; i: integer; off: integer; vkw: Word; begin for i := 1 to Length(s) do begin c := s[i]; if (c < #128) then...
- 用delphi写下载程序
unit Unit1; interface ... Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IniFiles, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdT...
- delphi 注册表操作(读取、添加、删除、修改)完全手册
32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。 一、创建和释放TRegistry对象 1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：ARegistry := TRegistry.Create； ...
- delphi开发技巧
很多程序设计人员都有这样的体会，那就是往往自己冥思苦想某个问题的时候，旁人的一句点拨就可以拨云见日，灵感突现。因此下面以FAQ的形式列举了在开发过程中可能会遇到的问题，以飨读者。 1.1 关于Delphi的...
- DELPHI XE Android 开发笔记
F:\RAD Studio XE6\PlatformSDKs\adt-bundle-windows-x86-20131030\sdk F:\RAD Studio XE6\PlatformSDKs\android-ndk-r9c C:\Program Files\Java\jdk1.7.0_40 SDK更新代理 XE6 不支持
- Delphi开发范例宝典目录
实例016 类似Windows XP的程序界面 20 实例017 以图形按钮显示的界面 21 实例018 以树型显示的程序界面 23 实例019 以XPManifest组件显示界面 24 实例020 动态按钮的窗体界面 25 1.6 特殊形状的窗体 26 ...
- Delphi 文件操作（路径、目录）
Delphi利用系统环境变量获取常用系统目录 //譬如 %WINDIR% 是表示系统目录的系统变量, 可以这样获取: var s: string; begin s := GetEnvironmentVariable('WINDIR'); ShowMessage(s); {C:\WINDOWS} end; ...
- delphi 注册列表的学习
Delphi的注册表操作 32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。 一、创建和释放TRegistry对象 1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象： ARegistry := TRegistry....
- 关于Delphi通用涵数
DELPHI程序注册码设计（转载） 思路是这样的:程序运行时先检测注册表,如果找到注册项,则表明已经注册,如果没有找到注册项,则提示要求注册. 在DELPHI下新建一工程,放置Edit1,Edit2,Label1,Label2,Button1组件.具体...
- delphi使用webbrow控制IE
用Delphi实现论坛灌水机(含源码) 出处：www.csdn.net[ 2004-11-26 09:55:50 ] 作者：破天惊 责任编辑：liyalin 本来以为网页里的edit,memo等都和程序里的一样,可以用句柄来控制,但后来才明白,它是不存在句柄的!...
- delphi基础开发技巧
◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag...