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:潜在监视...