Delphi Windows服务-在启动服务之前等待长时间任务完成

unit MyServiceUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;

type
  TMyService = class(TService)
    procedure ServiceCreate(Sender: TObject);
    procedure ServiceStart(Sender: TService; var Started: Boolean);
  private
    FTaskThread: TThread;
    FTaskCompleted: TEvent;
    procedure TaskThreadExecute(Sender: TObject);
    procedure TaskCompletedHandler(Sender: TObject);
  public
    function GetServiceController: TServiceController; override;
  end;

var
  MyService: TMyService;

implementation

{$R *.dfm}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  MyService.Controller(CtrlCode);
end;

function TMyService.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TMyService.ServiceCreate(Sender: TObject);
begin
  // 初始化事件对象
  FTaskCompleted := TEvent.Create(nil, True, False, '');
end;

procedure TMyService.ServiceStart(Sender: TService; var Started: Boolean);
begin
  // 创建并启动任务线程
  FTaskThread := TThread.CreateAnonymousThread(TaskThreadExecute);
  FTaskThread.FreeOnTerminate := True;
  FTaskThread.Start;

  // 等待任务完成
  FTaskCompleted.WaitFor;
end;

procedure TMyService.TaskThreadExecute(Sender: TObject);
begin
  // 执行耗时任务
  Sleep(10000); // 模拟一个耗时的任务，这里是等待10秒钟

  // 任务完成，触发事件
  Synchronize(TaskCompletedHandler);
end;

procedure TMyService.TaskCompletedHandler(Sender: TObject);
begin
  // 触发任务完成事件
  FTaskCompleted.SetEvent;
end;

end.