キルホああ2023-09-11T11:30:27+09:00使い方
手順RegistryMonitor(rootkey:hkey; key:string; proc:tproc; watchsub:boolean);
始める
tthread.createanynymousthread(手順
var
Reg:Tregistry;
イベント:枢機inal;
始める
reg:= trrewistry.create;
reg.RootKey:= rootkey;
reg.openkeyreadonly(key)の場合
始める
イベント:= createevent(nil、false、false、nil);
イベント> 0の場合
始める
本当ですが
始める
regnotifyChandureKeyValue(Reg.CurrentKey、WatchSub、reg_notify_change_last_set、event、true);
waitforsingleobject(event、infinite)= wait_object_0 tthread.synchronize(tthread.curenthread、procedure begin proc end);
終わり;
終わり;
終わり;
reg.free;
終了).START;
終わり;
// proc:コマンドを入力します
// watchsub:監視を下す...