source: branches/Xvcl/lddesktop.dpr

program lddesktop;

uses
  Vcl.Forms,
  UFormMain in 'UFormMain.pas' {Form1},
  Xvcl.Controls in 'Xvcl.Controls.pas',
  TestApplication in 'Applications\TestApplication.pas',
  Xvcl.Classes in 'Xvcl.Classes.pas',
  Xvcl.Graphics in 'Xvcl.Graphics.pas',
  Xvcl.Forms in 'Xvcl.Forms.pas',
  Xvcl.Kernel in 'Xvcl.Kernel.pas',
  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.Generics in 'Xvcl.Generics.pas';

{$R *.res}

var
  Kernel: TKernel;
  DriverSystem: TDriver;
  DriverVideo: TDriver;
  DriverKeyboard: TDriver;
  DriverMouse: TDriver;
  TestApplication: TApplication;
begin
  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);
  TestApplication := TTestApplication.Create;
  TestApplication.Screen := Kernel.Screen;
  Kernel.StartOnBoot.Add(TestApplication);
  Kernel.Boot;
  Kernel.Destroy;
end.