ByteMaps.cpp 703 B

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