Delphi Hook API 已疯狂
作者: yangyxd 转载请注明出处 http://hi.baidu.com/yangyxd 2009-3-12
论坛里有关于HOOK API的贴子， 但其实现在方式显示得麻烦， 其实现在拦截API一般不用那种方式， 大都采用inline Hook API方式。其实也就是直接修改了要拦截的API源码的头部，让它无条件跳转到我们自己的处理过程。
不多说别的了，开始我们自己的Hook API吧。
我们今天要拦截的API如下：
MessageBoxA、MessageBoxW、MessageBeep 和 OpenProcess 。
首先，大家都知道要在整个系统范围中拦截，需要使用Dll来完成。现在我们打开Delphi 2009，新建一个Dll工程：hookDll。需要说明的是，Delphi是完全面向对象的编程语言，所以我们不要浪费，这个Dll打算用类的方式完成。于是，在新建的DLL工程中在添加一个Unit Pas，命名为unitHook， 用来写拦截类的处理。unitHook.pas中的代码如下：
unit unitHook;
interface
uses
Windows, Messages, Classes, SysUtils;
type
//NtHook类相关类型
TNtJmpCode=packed record //8字节
MovEax:Byte;
Addr:DWORD;
JmpCode:Word;
dwReserved:Byte;
end;
TNtHookClass=class(TObject)
private
hProcess:THandle;
NewAddr:TNtJmpCode;
OldAddr:array[0..7] of Byte;
ReadOK:Boolean;
public
BaseAddr:Pointer;
constructor Create(DllName,FuncName:string;NewFunc:Pointer);
destructor Destroy; override;
procedure Hook;
procedure UnHook;
end;
implementation
//==================================================
//NtHOOK 类开始
//==================================================
constructor TNtHookClass.Create(DllName: string; FuncName: string;NewFunc:Pointer);
var
DllModule:HMODULE;
dwReserved:DWORD;
begin
//获取模块句柄
DllModule:=GetModuleHandle(PChar(DllName));
//如果得不到说明未被加载
if DllModule=0 then DllModule:=LoadLibrary(PChar(DllName));
//得到模块入口地址（基址）
BaseAddr:=Pointer(GetProcAddress(DllModule,PChar(FuncName)));
//获取当前进程句柄
hProcess:=GetCurrentProcess;
//指向新地址的指针
NewAddr.MovEax:=$B8;
NewAddr.
相关文档：
如何在Delphi里面利用Word的VBA代码进行一些总结。
1、 生成VBA代码。Word本身具有很强的可扩展性，尤其是支持用户自定义功能，其实现
的主要方式就是通过VBA代码来实现的。在“工具->宏->Visual Basic编辑器”里面就可以看
到具体的宏代码，可以直接进行编辑。而且还可以使用录制宏的功能自动 ......
一．编写 RC 脚本文本
用记事本或其它文本编辑器编写一个扩展名为“.rc”的文件。格式如下：
AVI 无声动画
BITMAP 位图文件
CURSOR 光标文件
ICON 图标文件
WAVE 声音文件
以上所列均为标准资源类型，也可以给资源自定义一个类型，如：“mytype ......
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ......
最近开发程序需要使用TList功能，转载此文章，以作参考。
看了这里标题，大家可能以为我会谈TListBox控件，那就错了。我要谈的是Delphi提供给我们的具有列表性质的类：TstringList、TList和TObjectList。TstringList用来存放字符串，TList存放指针，而TObjectList则存放对象(Object)。
在我们使用Delphi 的过程中，有很多 ......
摘
要：本文通过使用Delphi和WebServices技术开发短信应用程序的实例详细的介绍了如何在Delphi中开发基于WebServices技术
的应用程序。
关键字：Delphi；WebService；短信应用程序开发
一提起基于WebServices技术的应用程序开发，一般人首先想到的开发工具是VS.net，其实作为快速应用程序开发工具
(RAD)� ......
