Delphi MouseHook鼠标钩子,全局映像文件, 如果没有TMappingMem, hook就只对本进程起作用,子类TMouseHook, 只提供事件接口实现,关键所在, 通过AllocateHWnd创建一个不可见的窗体, 来实现所有消息的中转,通过TMouseHookBase的WndProc来实现对消息的响应,最终并附有测试项目的源码。
2022-11-05 22:03:10 58KB Delphi源码-系统相关
1
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;   完整实例需要下载本源码。
2022-10-08 18:42:11 4KB Delphi源码-系统相关
1
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;
2022-06-04 16:40:57 7KB Delphi源码-系统相关
1
Delphi仿真圆形时钟实例代码,圆形指针式电子表,在初学Delphi的时候,都喜欢做一些类似的小程序,以丰富自己的Delphi编程经验,这些小程序确实是挺不错的选择哦。
2022-05-01 17:08:46 8KB Delphi源码-系统相关
1
VB开发的屏幕截图程序,相对比较简单,从测试情况看,还有许多地方需要完善,比如不能智能识别抓图区域,不能用鼠标圈选区域等,不过作为一个最基本的抓图模块,新手可能会更容易上手使用,因此还是挺实用的,代码也相对简单,功能扩展一下,应该不错。
2022-04-11 14:05:23 4KB Delphi源码-系统相关
1
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。
2022-04-08 06:48:12 8KB Delphi源码-系统相关
1
笔记本、台式机电源及电池属性检测Delphi代码,检测电源状态、电池状态、剩余电量、剩余时间、总使用时间、启动休眠等功能。
2022-03-04 19:52:43 37KB Delphi源码-系统相关
1
Delphi编写的一款 16进制文件编辑器源码,实现了类似WINHEX软件的功能,不过功能上没有WINHEX那么多,当初只是自己用的,在DELPHI7下编译成功。程序可以打开16进制文件并编辑修改,支持自动备份和翻页自动保存的功能,自认为程序的亮点在于TMEMO字符可控编辑的功能。该procedure不用写代码,但是对于readonly=true的tmemo,能接收到keyup事件
2022-02-28 17:38:12 14KB Delphi源码-系统相关
1
Delphi 计算两个日期之间的时间差(天数),面向Delphi初学者的源码,Delphi7源码下载。
2022-01-26 11:22:22 6KB Delphi源码-系统相关
1
本源码主要演示Delphi 锁定鼠标和键盘 10秒后解锁,数字键、字母键和大部分功能键以及鼠标全部键都将锁定不能操作,但对键盘中的“Power”键、“Sleep”键、“WakeUp”键无效。锁定10秒后会自动解锁。   begin    if lock('USER32.DLL', 'BlockInput', @forbid) then    begin    forbid(True); // 禁止键盘鼠标    Sleep(10000); // 等待10秒    forbid(False); // 允许键盘鼠标    end;   end;
2022-01-19 18:39:12 6KB Delphi源码-系统相关
1