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：監視を下す...