CsgC.cpp 893 B

12345678910111213141516171819202122232425262728293031323334353637
  1. //
  2. // 5.02.13 - PW - First draft of conversion to c++
  3. //---------------------------------------------------------------------------
  4. #include <vcl.h>
  5. #pragma hdrstop
  6. #include <tchar.h>
  7. //---------------------------------------------------------------------------
  8. USEFORM("fCsgC.cpp", Form1);
  9. //---------------------------------------------------------------------------
  10. int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
  11. {
  12. try
  13. {
  14. Application->Initialize();
  15. Application->MainFormOnTaskBar = true;
  16. Application->CreateForm(__classid(TForm1), &Form1);
  17. Application->Run();
  18. }
  19. catch (Exception &exception)
  20. {
  21. Application->ShowException(&exception);
  22. }
  23. catch (...)
  24. {
  25. try
  26. {
  27. throw Exception("");
  28. }
  29. catch (Exception &exception)
  30. {
  31. Application->ShowException(&exception);
  32. }
  33. }
  34. return 0;
  35. }
  36. //---------------------------------------------------------------------------