program lddesktop;

uses
  Vcl.Forms,
  UFormMain in 'UFormMain.pas' {FormScreen},
  Driver.VideoVCL in 'Drivers\Driver.VideoVCL.pas',
  Driver.SystemVCL in 'Drivers\Driver.SystemVCL.pas',
  Driver.KeyboardVCL in 'Drivers\Driver.KeyboardVCL.pas',
  Driver.MouseVCL in 'Drivers\Driver.MouseVCL.pas',
  Xvcl.Classes in 'Xvcl\Xvcl.Classes.pas',
  Xvcl.Controls in 'Xvcl\Xvcl.Controls.pas',
  Xvcl.Forms in 'Xvcl\Xvcl.Forms.pas',
  Xvcl.Generics in 'Xvcl\Xvcl.Generics.pas',
  Xvcl.Graphics in 'Xvcl\Xvcl.Graphics.pas',
  LDOS.Kernel in 'System\LDOS.Kernel.pas',
  LDOS.Task in 'System\LDOS.Task.pas',
  TestApplication in 'Applications\TestApplication.pas',
  UDesktop in 'Applications\UDesktop.pas',
  LDOS.Mem in 'System\LDOS.Mem.pas';

{$R *.res}

var
  Kernel: TKernel;
  DriverSystem: TDriver;
  DriverVideo: TDriver;
  DriverKeyboard: TDriver;
  DriverMouse: TDriver;
  DesktopApp: TDesktopApp;
begin
  ReportMemoryLeaksOnShutdown := DebugHook <> 0;
  Kernel := TKernel.Create;
  DriverSystem := TDriverSystemVCL.Create;
  DriverSystem.Kernel := Kernel;
  Kernel.Drivers.Add(DriverSystem);
  DriverVideo := TDriverVideoVCL.Create;
  DriverVideo.Kernel := Kernel;
  Kernel.Drivers.Add(DriverVideo);
  DriverKeyboard := TDriverKeyboardVCL.Create;
  DriverKeyboard.Kernel := Kernel;
  Kernel.Drivers.Add(DriverKeyboard);
  DriverMouse := TDriverMouseVCL.Create;
  DriverMouse.Kernel := Kernel;
  Kernel.Drivers.Add(DriverMouse);
  DesktopApp := TDesktopApp.Create;
  DesktopApp.Screen := Kernel.Screen;
  Kernel.StartOnBoot.Add(DesktopApp);
  Kernel.Boot;
  Kernel.Destroy;
end.