Multithreading 如何按需启动/停止监视Delphi线程？_Multithreading_Delphi_Ondemand

Multithreading 如何按需启动/停止监视Delphi线程？

multithreading delphi

Multithreading 如何按需启动/停止监视Delphi线程？,multithreading,delphi,ondemand,Multithreading,Delphi,Ondemand,我一直在寻找一种在Delphi中监视特定注册表更改的方法。在about.com上找到一个： procedure TRegMonitorThread.Execute; begin InitThread; // method omitted here while not Terminated do begin if WaitForSingleObject(FEvent, INFINITE) = WAIT_OBJECT_0 then begin fChangeD

我一直在寻找一种在Delphi中监视特定注册表更改的方法。在about.com上找到一个：

procedure TRegMonitorThread.Execute;
begin
  InitThread; // method omitted here
  while not Terminated do
  begin
    if WaitForSingleObject(FEvent, INFINITE) = WAIT_OBJECT_0 then
    begin
      fChangeData.RootKey := RootKey;
      fChangeData.Key := Key;
      SendMessage(Wnd, WM_REGCHANGE, RootKey, LongInt(PChar(Key)));
      ResetEvent(FEvent);

      RegNotifyChangeKeyValue(FReg.CurrentKey, 1, Filter, FEvent, 1);
    end;
  end;
end;

在我的应用程序中，我需要根据需要启动和停止这个线程，但上面的代码不允许这样做。仅仅设置终止标志是不行的

以某种方式告诉线程停止等待，然后释放它并在需要时创建一个新线程就足够了。如何更改此代码以实现此目的？

相反，在INFINITE中，您应该在一段时间后使WaitForSingleObject超时。这样，循环将继续并终止

procedure TRegMonitorThread.Execute;
begin
  InitThread; // method omitted here
  while not Terminated do
  begin
    if WaitForSingleObject(FEvent, 1000) = WAIT_OBJECT_0 then
    begin
      fChangeData.RootKey := RootKey;
      fChangeData.Key := Key;
      SendMessage(Wnd, WM_REGCHANGE, RootKey, LongInt(PChar(Key)));
      ResetEvent(FEvent);

      RegNotifyChangeKeyValue(FReg.CurrentKey, 1, Filter, FEvent, 1);
    end;
  end;
end;

理论上，TThread.Suspend和TThread.Resume方法可以用来临时停止线程，但Delphi2010现在承认它们不安全。请参见和

相反，在INFINITE中，您应该在一段时间后具有WaitForSingleObject超时。这样，循环将继续并终止

procedure TRegMonitorThread.Execute;
begin
  InitThread; // method omitted here
  while not Terminated do
  begin
    if WaitForSingleObject(FEvent, 1000) = WAIT_OBJECT_0 then
    begin
      fChangeData.RootKey := RootKey;
      fChangeData.Key := Key;
      SendMessage(Wnd, WM_REGCHANGE, RootKey, LongInt(PChar(Key)));
      ResetEvent(FEvent);

      RegNotifyChangeKeyValue(FReg.CurrentKey, 1, Filter, FEvent, 1);
    end;
  end;
end;

理论上，TThread.Suspend和TThread.Resume方法可以用来临时停止线程，但Delphi2010现在承认它们不安全。请参见并使用

WaitForMultipleObjects（）

和两个事件的数组，而不是

WaitForSingleObject（）

。将手动重置事件添加到线程类，并在将

终止

设置为

真

后发出信号。检查两个事件中哪一个已发出信号的返回值，并相应地采取行动

编辑：

一些Delphi2009代码演示了这个想法。您必须将

SyncObjs

添加到已用单位列表中，然后添加

  fTerminateEvent: TEvent;

转到线程类的

private

部分

constructor TTestThread.Create;
begin
  inherited Create(TRUE);
  fTerminateEvent := TEvent.Create(nil, True, False, '');
  // ...
  Resume;
end;

destructor TTestThread.Destroy;
begin
  fTerminateEvent.SetEvent;
  Terminate; // not necessary if you don't check Terminated in your code
  WaitFor;
  fTerminateEvent.Free;
  inherited;
end;

procedure TTestThread.Execute;
var
  Handles: array[0..1] of THandle;
begin
  Handles[0] := ...; // your event handle goes here
  Handles[1] := fTerminateEvent.Handle;
  while not Terminated do begin
    if WaitForMultipleObjects(2, @Handles[0], False, INFINITE) <> WAIT_OBJECT_0 then
      break;
    // ...
  end;
end;

构造函数TTesthread.Create；
开始
继承创建（TRUE）；
fTerminateEvent:=TEvent.Create（nil，True，False，”）；
// ...
简历
结束；
析构函数TTesthread.Destroy；
开始
fTerminateEvent.SetEvent；
终止；//如果您没有在代码中检查终止，则不需要
等待；
fTerminateEvent.Free；
继承；
结束；
程序TTesthread.Execute；
变量
句柄：THandle的数组[0..1]；
开始
句柄[0]：=…；//您的事件句柄位于此处
句柄[1]：=fTerminateEvent.Handle；
虽然没有终止，但不要开始
如果WaitForMultipleObjects（2，@Handles[0]，False，无限）等待\u OBJECT\u 0，则
打破
// ...
结束；
结束；

您只需将问题中的代码添加到其中。只要尝试释放线程实例，就会执行解除阻止线程所需的所有操作（如果需要）。

使用带有两个事件数组的

WaitForSingleObject（）

，而不是

WaitForSingleObject（）