Delphi MouseHook鼠标钩子，全局映像文件, 如果没有TMappingMem, hook就只对本进程起作用，子类TMouseHook, 只提供事件接口实现，关键所在, 通过AllocateHWnd创建一个不可见的窗体, 来实现所有消息的中转，通过TMouseHookBase的WndProc来实现对消息的响应，最终并附有测试项目的源码。

Delphi7.0按要求生成指定位数编号，自动生成编号，请在文本框中输入编号，编号输入完成后按回车键。以下是完成核心功能的代码： 　　procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; 　　 Shift: TShiftState); 　　var 　　 i:integer; 　　 s:string; 　　begin 　　 S:=''; 　　 if key=vk_return then 　　 begin 　　 if length(edit1.Text)>8 then 　　 edit1.Text:=copy(edit1.Text,1,8); 　　 if length(edit1.Text)<8 then 　　 begin 　　 i:=8-length(edit1.Text); 　　 for i:=1 to (8-length(edit1.Text)) do 　　 begin 　　 s:=s '0'; 　　 end; 　　 edit1.Text:=trim(s) trim(edit1.Text); 　　 end; 　　 end; 　　end; 　　完整实例需要下载本源码。

Delphi 修改内存保护属性，包括修改以下信息：基地址、分配地址、区域大孝所分配保护属性、访问的保护属性、内存状态、内存类型等。核心源代码如下： 　　VirtualQuery(Arrayptr, MemInfo, SizeOf(TMemoryBasicInformation)); 　　ListBox1.Items.Add('基地址: ' IntToHex(Longint(MemInfo.BaseAddress),8)); 　　ListBox1.Items.Add('分配地址: ' IntToHex(Longint( 　　 MemInfo.AllocationBase),8)); 　　ListBox1.Items.Add('区域大小: ' IntToStr(MemInfo.RegionSize) ' bytes'); 　　ListBox1.Items.Add('所分配保护属性: ' DisplayProtections(MemInfo.AllocationProtect)); 　　ListBox1.Items.Add('访问的保护属性: ' DisplayProtections(MemInfo.Protect)); 　　case MemInfo.State of 　　 MEM_COMMIT: ListBox1.Items.Add('内存状态: MEM_COMMIT'); 　　 MEM_FREE: ListBox1.Items.Add('内存状态: MEM_FREE'); 　　 MEM_RESERVE: ListBox1.Items.Add('内存状态: MEM_RESERVE'); 　　end; 　　case MemInfo.Type_9 of 　　 MEM_IMAGE: ListBox1.Items.Add('内存类型: MEM_IMAGE'); 　　 MEM_MAPPED: ListBox1.Items.Add('内存类型: MEM_MAPPED'); 　　 MEM_PRIVATE: ListBox1.Items.Add('内存类型: MEM_PRIVATE'); 　　end;

Delphi仿真圆形时钟实例代码，圆形指针式电子表，在初学Delphi的时候，都喜欢做一些类似的小程序，以丰富自己的Delphi编程经验，这些小程序确实是挺不错的选择哦。

VB开发的屏幕截图程序，相对比较简单，从测试情况看，还有许多地方需要完善，比如不能智能识别抓图区域，不能用鼠标圈选区域等，不过作为一个最基本的抓图模块，新手可能会更容易上手使用，因此还是挺实用的，代码也相对简单，功能扩展一下，应该不错。

Delphi获取电脑IP地址、MAC网卡物理地址、本机名称等，网络相关信息获取，基本的Delphi网络参数获取代码，高手请绕行吧。通过调用Api函数gethostname,gethostbyname,wsastartup，uses中加winsock，介绍wsadata,phostent，msdn，另外gethostaddress。 　　function NBGetAdapterAddress(a: integer): String; 　　a指定多个网卡适配器中的哪一个0，1，2... 　　 NCB:TNCB; // Netbios control block file://NetBios控制块 　　 ADAPTER : TADAPTERSTATUS; // Netbios adapter status//取网卡状态 　　 LANAENUM : TLANAENUM; // Netbios lana 　　 intIdx : Integer; // Temporary work value//临时变量 　　 cRC : Char; // Netbios return code//NetBios返回值 　　 strTemp : String; // Temporary string//临时变量 　　WSAstartup在使用gethostname,gethostbyname前，一定不要忘了初始化WS2_32.DLL。

笔记本、台式机电源及电池属性检测Delphi代码，检测电源状态、电池状态、剩余电量、剩余时间、总使用时间、启动休眠等功能。

Delphi编写的一款 16进制文件编辑器源码，实现了类似WINHEX软件的功能，不过功能上没有WINHEX那么多，当初只是自己用的，在DELPHI7下编译成功。程序可以打开16进制文件并编辑修改，支持自动备份和翻页自动保存的功能，自认为程序的亮点在于TMEMO字符可控编辑的功能。该procedure不用写代码，但是对于readonly=true的tmemo，能接收到keyup事件

Delphi 计算两个日期之间的时间差（天数），面向Delphi初学者的源码，Delphi7源码下载。

本源码主要演示Delphi 锁定鼠标和键盘 10秒后解锁，数字键、字母键和大部分功能键以及鼠标全部键都将锁定不能操作，但对键盘中的“Power”键、“Sleep”键、“WakeUp”键无效。锁定10秒后会自动解锁。 　　begin 　　 if lock('USER32.DLL', 'BlockInput', @forbid) then 　　 begin 　　 forbid(True); // 禁止键盘鼠标 　　 Sleep(10000); // 等待10秒 　　 forbid(False); // 允许键盘鼠标 　　 end; 　　end;