Tag - Delphi

注册监测(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:潜在监视...