频道分类

delphi 利用Delphi监视注册表的变化

作者:admin 来源: 日期:2020/3/23 9:06:55 人气: 标签:

 
我们在编写软件的时候,常常需要把一些信息保存到系统的注册表中。如果用户更改了注册表的信息,我们如何及时知道,并做相应的处理呢?通过研究,我们发现 在Win98以上操作系统中,微软在SDK函数库中增加了RegNotifyChangeKeyValue函数,用于监视注册表特定键值的变化。下面我们 就怎样用Delphi编一个注册表监视器,做详细地探讨。
关于注册表监视函数
下面是注册表监视函数地声明:

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控件中的显示。

上一篇:delphi 枚举类型和integer整型之间的互换下一篇:没有资料