Playcap.cpp
上传用户:hylc_2004
上传日期:2014-01-23
资源大小:46800k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. //---------------------------------------------------------------------------
  5. USEFORM("main.cpp", MainForm);
  6. //---------------------------------------------------------------------------
  7. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  8. {
  9.         try
  10.         {
  11.                  Application->Initialize();
  12.                  Application->CreateForm(__classid(TMainForm), &MainForm);
  13.                  Application->Run();
  14.         }
  15.         catch (Exception &exception)
  16.         {
  17.                  Application->ShowException(&exception);
  18.         }
  19.         catch (...)
  20.         {
  21.                  try
  22.                  {
  23.                          throw Exception("");
  24.                  }
  25.                  catch (Exception &exception)
  26.                  {
  27.                          Application->ShowException(&exception);
  28.                  }
  29.         }
  30.         return 0;
  31. }
  32. //---------------------------------------------------------------------------