wasmthreadcontroller.pas 353 B

1234567891011121314151617181920212223
  1. program wasmthreadcontroller;
  2. {$mode objfpc}
  3. uses
  4. Classes, Rtl.threadcontroller, Rtl.workerthreadhost;
  5. type
  6. { TApplication }
  7. TApplication = class(TWorkerThreadControllerApplication)
  8. end;
  9. { TApplication }
  10. var
  11. App: TApplication;
  12. begin
  13. globalThreadController.HandleConsoleMessages:=true;
  14. App:=TApplication.Create(nil);
  15. App.Run;
  16. end.