如何用Windows消息拦截delphi的消息-CSDN社区

这是本人在网上搜索到的资料,跟大家分享,感谢那个提供源码的网友. 大家都知道,在任务管理器进程标签中直接杀进程,是直接杀,不交给用户处理.很多人都在为了防止自己的进程被误杀而苦苦思索,但是一般的拦截消息的方法又几乎都不管用. 在这里,给大家一个Delphi的源码,使用HOOK进行拦截处理任务管理器来实现. 在附件的文档中包含了源码,共分为两个部分:exe测试部分,Dll部分(HookDll,unithook). 我已经亲自编译测试过,可以实现拦截任务管理器的消息. 再次感谢那个网友(没有记住名...)! PS:附件中的Word是使用Office2010保存的docx格式,如果您不能打开我这个文档,可以在我的资源目录下找这个补丁安装上就可以了. FileFormatConverters_Office_doc_to_docx 这个是微软提供的,可以使Office2003等早期版本打开新的docx格式文档. 感谢大家光临!

程序实现的功能是注入一个动态库，拦截其它程序不能打开指定exe。程序分为三部分：用于测试的exe程序(Test)、拦截动态库(inlinehook)、动态库注入和卸载程序（DLLinject）

TApplication.OnIdle 　　当应用程序变为空闲时，OnIdle事件发生。　　使用OnIdle事件，可以写一个应用程序空闲时执行特定处理的事件处理程序。当应用程序不处理代码时，称为应用程序空闲。例如，当应用程序等待来自用户的输入时，应用程序为空闲。　　TIdleEvent类型是OnIdle事件的类型，它指向一个应用程序空闲时运行的方法。TIdleEvent类型有一个布尔型参数Done,默认时该参数为True。若参数Done为True，当OnIdle事件返回时，调用Windows API WaitMessage函数。只有在应用程序消息队列中出现一个新消息时，WaitMessage函数才放弃对其他应用程序的控制。参数Done为False时，即使应用程序不忙，也不放弃对其他应用程序的控制。　　当应用程序转移到空闲状态时，只调用一次OnIdle事件。除非参数Done设置为False,否则不连续调用OnIdle事件。将参数Done设置为False的应用程序，将消耗过多的CPU时间，从而影响整个系统性能。在delphi中，当在一个窗口上放置一个ApplicationEvents控件时,Application将会把所有的事件都转寄到ApplicationEvents; 也就是说,ApplicationEvents可以拦截到应用程序的全部事件,包括OnActivate\OnHelp\OnIdle\OnRestore\OnShortCut等等, 甚至可能通过OnMessage事件,在其中截取所有post到应用程序中所有窗口的消息,如WM_PAINT,WM_KEYDOWN, WM_KEYUP等常见的windows消息; 所以当有消息到来的时候就会触发它的OnMessage事件，在OnMessage中监视消息就可以了。 Action的事件有OnExecute和OnUpdate，OnExecute事件在控制被触发时响应，比如说按钮被按下，菜单被按下，而OnUpdate事件是在应用程序空闲时被调用， APPLICATIONEVENTS是用来捕获程序级事件的 ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean); {通过　Perform　向窗体发送消息;　OnMessage　收不到} {通过　SendMessage　向窗体发送消息;　OnMessage　收不到} {通过　PostMessage　向窗体发送　消息;　OnMessage　可以收到}

Delphi编程大师2003 还有各类控件400多个.也有Delphi教学文章及书籍25个.和各类Delphi编程的软件原代码不但能使你简单的操控Delphi进行编程.而且能对初学者进行深入浅出的教学. 同时Delphi的原代码能帮助各位Delphi爱好者在编程过程中得到不同的启发与参考. 本软件含有: BorlandDelphi7.06中文版 BorlandDelphi6中文版 BorlandDelphi5中文版控件控件大全： DBISAM 3.07 SkinForm 界面控件 FlatStyle 文件备份 BackFile XP菜单 XPMenu DosMove RainXP XP Bar Menu 窗口停泊组件 RxLib2.75 nBdeDBF AVL平衡树控件包常用数据结构控件包(+源码+测试程序) SourceEdit DevExpress For Delphi6&7 Inforpower 4000.E FlatStyle 平面界面控件 ehlib25 Devexpress DBTree 1.3 1 FS 序列号大全 FrmConv 1.0 PrintManager 1.0 超链接拖放 Delphi Project Launcher 1.3 Gifform For Delphi 1.1 1stClass for Delphi 6 3000.01 RegTool控件 1.0 Delphi 6.0 汉化资源包繁简转换原码 WjTable Miniprint Miniprint_tryversion Spcomm Menubar mssql bitdbgrid exp aexcel aliased doci ln hgdbfilter kbmmemtab VclZip 2.23版本一个极酷的TreeView控件,多种视觉效果.推荐对于字符串进行DES加密的控件在Delphi中制作扑克牌游戏的控件 eXperience dxPack12(一组dotNet控件) 界面控件ThemeEngine 3.2 界面控件Skinengine3.2.0 内存表控件 kbmMemTable TGifImage For D7 经本人修改过的XpMenu,真正xp效果可支持窗体停靠的控件 Modem拨号构件一个用于Ini文件控制的控件 DBPanel 一个支持多种图形格式的控件 Modem拨号控制控件一个可以实现颜色渐变效果的label控件 TEasySize Skinengine 3.1.2 ADOTable TTransitionEffect 一个可以以动画方式显示Hint的控件一个能够旋转显示其内的图像的Image控件 Gifimage For Delphi6 Richview1.4.2 SakEmail控件3.4.3版本利用Windows Socket API抓取网络上的网页的控件系统信息控件一个不错的RAS构件最新版本的gifimage glad控件包for d5 拥有七种不同外观的改良版TCheckBox构件平滑特效字体控件包 V2.2 用Xcl代替Delphi的Vcl控件能够嵌入TButton或TComboBox的TStringGrid控件能够以回转的形式带出欲显示Form的控件具有渐层色彩为背景之改良版TLabel构件模拟大型电子广告牌的控件 VDF-Tools系列控件能够得知True Type字体详细信息的非可视构件直接存取硬件设备IO口地址的非可视构件BAIOPORT QuickReport实现自动分行显示的补丁能够拦截系统内键盘输入信息的Hook构件能够精简HTML文件的控件可以处理XML的TQuickRTTI控件制作 Microsoft ISAPI Extention 应用程序的构件控制ISDN拨号的控件 AGHOTKEYMGR 针对 UDP 通讯协议的 Socket 构件能够更改 TForm.Cpation 显示字体的非可视构件改良版的 TTimer 构件利用 MODEM 提供拨号功能的非可视构件加强版 TTimer 构件 TCommStatus串行状态控件一个具备 FTP 功能的构件目前为止效果最好的mp3播放控件组非常COOL的能够做出WIN2K般的效果动感界面控件很cool的grid控件换肤功能控件自动缩放数据表格 V1.0 平滑字体控件包 V1.1 应用程序病毒免疫控件 V1.21 以可视鼠标拖放的方式产生 SQL 语句的可视构件 UCCOMP AExcel组件模拟音响设备中纵向彩色LED指示表的控件类似音响设备中立体旋钮构件 TRANSPARENT PRNTRAID TMnet 能够解析编辑MP3文件中的Tag的非可视