event

CoreShell: TCoreShell;








CoreShell := TCoreShell.Create(...);




CoreShell.InitializeApplication_1;


CoreShell.InitializeApplication_2;




......


CoreShell.ExitApplication;
CoreShell.Free;








TTaskThread = class;


TCoreShell = class(TObject)
private
  FApplicationCloseEvent: THandle;
  FTaskThreadExitEvent: THandle;
  FTaskThread: TTaskThread;
public
  function InitializeApplication: Boolean;
  procedure ExitApplication;
end;




TTaskThread = class(TThread)
private
  FApplicationCloseEvent: THandle;
  FThreadExitEvent: THandle;
protected
  procedure Execute; override;
public
  constructor Create(CloseEvent: THandle; ExitEvent: THandle);
end;








constructor TTaskThread.Create(CloseEvent: THandle; ExitEvent: THandle);
begin
  FApplicationCloseEvent := CloseEvent;
  FThreadExitEvent := CloseEvent;


  inherited Create(False);
end;






procedure TTaskThread.Execute;
begin
  if FThreadExitEvent <> 0 then
  begin
    ResetEvent(FThreadExitEvent);
  end;


  try
    while not Terminated do
    begin
      if WaitForSingleObject(FApplicationCloseEvent, 0) = WAIT_OBJECT_0 then
      begin
        Break;
      end;


      ......




      Sleep(1000);
    end;
  except
    // record ThreadError
    on E: Exception do
    begin
      //E.Message
    end;
  end;


  if FThreadExitEvent <> 0 then
  begin
    SetEvent(FThreadExitEvent);
  end;
end;










function TCoreShell.InitializeApplication: Boolean;
begin
  // when core close, this event will be set to notify all of
  // the waiting threads to terminate
  FApplicationCloseEvent := CreateEvent(nil, True, False, nil);


  ......


  // this thread refers to nothing
  FTaskThreadExitEvent := CreateEvent(nil, True, False, nil);
  FTaskThread := TTaskThread.Create(FApplicationCloseEvent, FTaskThreadExitEvent);
end;


procedure TCoreShell.ExitApplication;
var
  dwLoop: Int64;
begin
  if FCoreCloseEvent <> 0 then
  begin
    Windows.SetEvent(FCoreCloseEvent);
  end;


  ......


  // destroy task thread
  if FTaskThreadExitEvent <> 0 then
  begin
    dwLoop := 100;
    while dwLoop > 0 do
    begin
      if WaitForSingleObject(FTaskThreadExitEvent, 0) = WAIT_OBJECT_0 then
      begin
        Break;
      end else begin
        Dec(dwLoop);
        Sleep(100);
        Application.ProcessMessages;
      end;
    end;
  end;


  if FTaskThread <> nil then
  begin
    FTaskThread.Free;
    FTaskThread := nil;
  end;
end;