TOPIC:

{$mode objfpc}{$H+}

uses
   {$IFDEF UNIX}
   cthreads,
   {$ENDIF}
   {$IFDEF HASAMIGA}
   athreads,
   {$ENDIF}
   Interfaces, // this includes the CT adLCL widgetset
   Forms, main, tasks, selftesting, test_common, keyboard, test_heat, usb_alert,
   test_full, report, report_pdf, calibrator, constants, num_keyboard,
   scope, processkiller, logger
   { you can add units after this };

{$R *.res}

begin
  Application.Scaled:=True;
   {$ifopt D+}{$else}
      KillExe('explorer.exe');
   {$endif}
   {  Normal body of application

   RequireDerivedFormResource:=True;
   Application.Scaled:=True;
   Application.Initialize;
   Application.CreateForm(TMainForm, MainForm);
   Application.CreateForm(TKbd, Kbd);
   Application.CreateForm(TUsbForm, UsbForm);
   Application.CreateForm(TNKbd, NKbd);
   Application.Run;
   }

   // Body of application after change build mode from Debug to Demo
   RequireDerivedFormResource:=True;
   Application.Scaled:=True;
   Application.Initialize;
   Application.Run;

   {$ifopt D+}{$else}
      // TODO: в финальной версии выключать питание
      //RunCmdFromPath('shutdown', '/p /f');
      RunExe('explorer.exe');
   {$endif}
end.