pas2jsthreadworker.pas 267 B

12345678910111213141516171819202122
  1. program pas2jsthreadworker;
  2. {$mode objfpc}
  3. uses
  4. Classes, rtl.threadrunner;
  5. type
  6. { TApplication }
  7. TApplication = class(TWorkerThreadRunnerApplication)
  8. end;
  9. { TApplication }
  10. var
  11. App: TApplication;
  12. begin
  13. App:=TApplication.Create(nil);
  14. App.Run;
  15. end.