开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
PlayWin.cpp
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

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