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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 查看源码
CDPacket.cpp
资源名称：cd_man.zip　[点击查看]
上传用户：deyixm
上传日期：2007-01-06
资源大小：43k
文件大小：2k
源码类别：

行业应用

开发平台：

Visual C++

CDPacket.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. USEFORM("main.cpp", Form1);
  5. USEFORM("about.cpp", AboutBox);
  6. USEFORM("CDAdd.cpp", Form3);
  7. USEFORM("SFAdd.cpp", Form4);
  8. USEFORM("CDFind.cpp", Form5);
  9. USEUNIT("SerchDisk.cpp");
  10. USEFORM("ModiSF.cpp", Form2);
  11. USEFORM("config.cpp", Form6);
  12. USEFORM("ProgressBar.cpp", Form7);
  13. USERC("cdpacket.rc");
  14. USERES("CDPacket.res");
  15. //---------------------------------------------------------------------------
  16. AnsiString cdbname;
  17. //---------------------------------------------------------------------------
  18. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR str, int)
  19. {
  20.         try
  21.         {
  22.                  Application->Initialize();
  23.                  Application->Title = "学韬电子光盘册";
  24.                  Application->CreateForm(__classid(TForm1), &Form1);
  25.                  Application->CreateForm(__classid(TForm5), &Form5);
  26.                  Application->CreateForm(__classid(TForm2), &Form2);
  27.                  Application->CreateForm(__classid(TForm3), &Form3);
  28.                  Application->CreateForm(__classid(TForm4), &Form4);
  29.                  Application->CreateForm(__classid(TForm6), &Form6);
  30.                  Application->CreateForm(__classid(TForm7), &Form7);
  31.                  cdbname=str;
  32.                  Application->Run();
  33.         }
  34.         catch (Exception &exception)
  35.         {
  36.                  Application->ShowException(&exception);
  37.         }
  38.         return 0;
  39. }
  40. //---------------------------------------------------------------------------