HeadersCB6.cpp
上传用户:daoqigc
上传日期:2021-04-20
资源大小:2795k
文件大小:1k
源码类别:

RichEdit

开发平台:

Delphi

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