Tag - Delphi

レジストリ監視(Delphi)

使い方 手順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:監視を下す...