注册监测（Delphi）
如何使用 Procedure RegistryMonitor（rootkey：hkey; key：string; string; proc：tproc; watchSub：boolean）; 开始 tthread.createanynymousthread（过程 var Reg：Tregistry； 事件：红衣主教； 开始 reg：= trrewistry.create; reg.rootkey：= rootkey; 如果Reg.OpenKeyReadonly（键） 开始 事件：= createEvent（nil，false，false，nil）; 如果事件> 0，则 开始 虽然是真的 开始 regnotifyChandureKeyKeyValue（reg.CurrentKey，watchSub，reg_notify_change_last_set，event，true）; 如果waitforsingleobject（event，infinite）= wait_object_0 tthread.synchronize（tthread.curenthread，过程开始proc end）; 结尾; 结尾; 结尾; reg.fre; 结束）.START; 结尾; // proc：输入命令 // WATCHSUB：潜在监视...
