multipass.cpp 670 B

123456789101112131415161718192021
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. USEFORM("Unit1.cpp", Form1);
  5. //---------------------------------------------------------------------------
  6. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  7. {
  8. try
  9. {
  10. Application->Initialize();
  11. Application->CreateForm(__classid(TForm1), &Form1);
  12. Application->Run();
  13. }
  14. catch (Exception &exception)
  15. {
  16. Application->ShowException(&exception);
  17. }
  18. return 0;
  19. }
  20. //---------------------------------------------------------------------------