SPS_Emu.lpr 690 B

1234567891011121314151617181920212223242526272829
  1. program SPS_Emu;
  2. {$mode objfpc}{$H+}
  3. uses
  4. {$IFDEF UNIX}{$IFDEF UseCThreads}
  5. cthreads,
  6. {$ENDIF}{$ENDIF}
  7. Interfaces, // this includes the LCL widgetset
  8. Forms, sdposeriallaz, uGUI, uSPS, uTextUi, uSelectCom, MCSLSU, MCSAbout,
  9. uiMicrobit;
  10. {$R *.res}
  11. var path : string;
  12. begin
  13. path := ParamStr(0);
  14. RequireDerivedFormResource := True;
  15. Application.Initialize;
  16. MCSLSU.LSUSetDebug(false);
  17. MCSLSU.LSUInit(path, NOR_Mode, GetLNGCode);
  18. Application.CreateForm(TForm1, Form1);
  19. Application.CreateForm(TForm2, Form2);
  20. Application.CreateForm(TfrmSelectCom, frmSelectCom);
  21. Application.CreateForm(TfMicrobit, fMicrobit);
  22. Application.Run;
  23. end.