follow my heart...
分类：
2007-02-05 16:10:13
下面是注册表监视函数地声明：
function RegNotifyChangeKeyValue(
hKey : HKEY, // 需要监视地注册表键
bWatchSubtree : LongBool, // 是否监视其子键
dwNotifyFilter : Cardinal, // 监视键变化的类型
hEvent : Cardinal, // 当有变化时所触发的通知事件句柄
fAsynchronous : LongBool // 异步通知事件标志
) : integer;
根据MSDN中对该函数的描述，我们对其参数做一下描述：
hKey －－我们所要监视的目标键值句柄，它必须是已经被打开的。要打开一个注册表键可以利用Tregistry 中的OpenKeyReadOnly函数。
dwNotifyFilter ――是一组标志集合，用于标识我们需要监视的变化类型，它们包括：
REG_NOTIFY_CHANGE_NAME – 增加或删除了子键
REG_NOTIFY_CHANGE_ATTRIBUTES – 改变了键的属性
REG_NOTIFY_CHANGE_LAST_SET – 键值发生了改变
REG_NOTIFY_CHANGE_SECURITY －键的安全属性发生了改变
hEvent ――当有变化时所触发的通知事件句柄。我们可以利用SDK函数CreateEvent来创建一个事件。
fAsynchronous ――以异步方式触发事件标志。
现在我们已经对如何利用该函数有了大体的了解：
1．打开需要监视的注册表键
2．创建触发事件
3．调用注册表监视函数，等待事件触发。
如果等待事件触发在主界面中实现，就会造成界面堵塞。一个解决办法就是，等待事件触发在线程中实现。
在Delphi下进行多现成程序设计并不需要去学习庞大的Win32 API函数，我们可以利用Delphi标准的多线程类Tthread来完成我们的工作。
Tthread是一个抽象类――一个带有虚拟抽象方法的类，不能直接使用它。要做的是把Tthread作为基类，用继承的形式来生成子类。实际上，根据TThread来写线程应用是非常容易的。
1． 无论何时创建一个TThread对象，首先要创建它的派生类。
2． 每次创建一个TThread对象的派生类的时候，都要重载Execute方法。
我们可以利用Delphi的向导，来生成创建TThread派生类的代码：
选择Delphi的File菜单下的New选项，再选择“TThread Object”项目，Delphi就会构造基本的程序模块，然后我们再根据需要做相应修改。如下图我们构建了一个注册表监视线程：
下面我们看看该线程是如何实现对注册表的监视的：
procedure TRegMonitorThread.Execute;
begin
InitThread; // 打开注册表键,创建通知事件
while not Terminated do
begin
if WaitForSingleObject(FEvent, INFINITE) = WAIT_OBJECT_0 then
begin
fChangeData.RootKey := RootKey;
fChangeData.Key := Key;
SendMessage(Wnd, WM_REGCHANGE,
RootKey, LongInt(PChar(Key)));
ResetEvent(FEvent); // Fevent对象复位，等待再次被触发
RegNotifyChangeKeyValue(FReg.CurrentKey, 1, Filter, FEvent, 1);
end;
end;
end;
我们可以看到，Execute 过程实际上是一个循环，结束的条件是进程退出。在循环中，调用WaitForSingleObject API函数进入等待状态，直到FEvent 对象变为有信号状态。可以看出我们所等待的Fevent ，RegNotifyChangeKeyValue 曾经调用。
注意，Fevent 被触发后，我们用SendMessage 发送消息到主窗口，下面我们对此做详细讨论。
消息是Windows发出的一个通知，它告诉应用程序某个事件发生了。在Delphi中，大多数情况下Windows的消息被封装在VCL的事件中，我们只需处理相应的VCL事件就可以了，但如果我们需要利用自己定义的消息实现某些功能，再Delphi中是如何实现的呢？下面我们看看是如何利用自定义消息传递监视信息的：
1． 首先定义自定义休息WM_REGCHANGE：
WM_REGCHANGE = WM_USER + 1973;
2． 声明主窗体中消息响应应函数：
procedure WMREGCHANGE(var Msg : TMessage); message WM_REGCHANGE;
3． 实现消息响应函数：
procedure TForm1.WMREGCHANGE(var Msg: TMessage);
begin
with Memo1.Lines do
begin
Add('-----------------------------------');
Add('Registry change at ' + DateTimeToStr(Now));
Add(IntToStr(RegMonitorThread.ChangeData.RootKey) +
' - ' + RegMonitorThread.ChangeData.Key);
end;
end;
我们在主界面上放了一个TMemo控件，用于显示注册表监视信息，在消息响应函数中，监视信息在TMemo控件中的显示。
