unit Desktop;

interface

uses
  SysUtils, Kernel.App, DateUtils, Kernel.Core, Kernel.Scheduler, Kernel.IPC,
  Kernel.Graphics;

type
  { TAppDesktop }

  TAppDesktop = class(TApp)
    procedure Run(Task: TTask); override;
    constructor Create; override;
  end;


implementation

{ TAppDesktop }

procedure TAppDesktop.Run(Task: TTask);
begin
  inherited;
end;

constructor TAppDesktop.Create;
begin
  inherited;
  Name := 'Desktop';
end;

end.