Kilho哦2023-09-11T11:30:27+09:00如何使用
 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:潜在监视...