オ・ギルホ2023-09-11T11:30:27+09:00使用方法
プロシージャ RegistryMonitor(RootKey: HKEY; Key: 文字列; Proc: TProc; WatchSub: boolean);
始める
TThread.CreateAnonymousThread(プロシージャ
変数
登録: Tレジストリ;
イベント: 枢機卿;
始める
Reg := TRegistry.Create;
Reg.RootKey := ルートキー;
Reg.OpenKeyReadOnly(Key) の場合
始める
イベント := CreateEvent(nil, False, False, nil);
イベント > 0 の場合
始める
一方、真はそうします
始める
RegNotifyChangeKeyValue(Reg.CurrentKey、WatchSub、REG_NOTIFY_CHANGE_LAST_SET、イベント、True);
if WaitForSingleObject(Event, INFINITE) = WAIT_OBJECT_0 then TThread.Synchronize(TThread.CurrentThread, プロシージャ begin Proc end);
終わり。
終わり。
終わり。
登録無料。
終了).開始;
終わり;
// Proc: コマンド入力
// WatchSub: サブドメインを監視しています...