proj_qemutest1.lpr 494 B

12345678910111213141516171819202122232425
  1. program proj_qemutest1;
  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, Unit1, unit_createhd
  9. { you can add units after this };
  10. {$R *.res}
  11. begin
  12. RequireDerivedFormResource:=True;
  13. Application.Title:='qemutest';
  14. Application.Scaled:=True;
  15. Application.Initialize;
  16. Application.CreateForm(TForm1, Form1);
  17. Application.CreateForm(TfrmCreateHD, frmCreateHD);
  18. Application.Run;
  19. end.