source: branches/Xvcl/Drivers/Driver.SystemVCL.pas

unit Driver.SystemVCL;

interface

uses
  Vcl.Forms, Xvcl.Kernel;

type
  TDriverSystemVCL = class(TDriver)
  private
    ProcessVCL: TProcess;
    procedure DoTick(Sender: TObject);
    procedure DoAfterDriverInit(Sender: TObject);
  public
    procedure Initialize; override;
    procedure Finalize; override;
  end;


implementation

{ TDriveSystemVCL }

procedure TDriverSystemVCL.DoAfterDriverInit(Sender: TObject);
begin
  Application.Run;
end;

procedure TDriverSystemVCL.Finalize;
begin
  inherited;
end;

procedure TDriverSystemVCL.Initialize;
begin
  inherited;
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Kernel.OnTick := DoTick;
end;

procedure TDriverSystemVCL.DoTick(Sender: TObject);
begin
  try
    Application.HandleMessage;
  except
    Application.HandleException(Self);
  end;
  if Application.Terminated then Kernel.Terminated := True;  
end;

end.