ktv.cpp

VOD点歌系统

//---------------------------------------------------------------------------

#include <vcl.h>
#include "unit_demoform.h"
#pragma hdrstop

USERES("KTV.res");
USEFORM("Unit_XBForm.cpp", frmSuoYin);
USEFORM("Unit_HomeForm.cpp", frmHome);
USEFORM("Unit_XBXZForm.cpp", frmXBXZ);
USEFORM("Unit_DGForm.cpp", frmGXDG);
USEFORM("Unit_GDXZForm.cpp", frmGDXZ);
USEFORM("Unit_BFLBForm.cpp", frmBFLB);
USEFORM("Unit_DM.cpp", Dm); /* TDataModule: File Type */
USEFORM("Unit_PYXZForm.cpp", frmPYXZ);
USEUNIT("Class\TMPlayer.cpp");
USEFORM("Unit_GQLBForm.cpp", frmGQLB);
USEFORM("Unit_DemoForm.cpp", frmDemo);
USEFORM("Unit_LogForm.cpp", frmInput);
USEUNIT("Des1.cpp");
USEUNIT("Mac.cpp");
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
   try
   {
      Application->Initialize();
//      Application->CreateForm(__classid(TfrmDemo), &frmDemo);
      frmDemo = new TfrmDemo(Application);
      frmDemo->Show();
      frmDemo->Update();
      Sleep(3000);
      Application->Title = "金百合KTV";
                 Application->CreateForm(__classid(TDm), &Dm);
                 Application->CreateForm(__classid(TfrmHome), &frmHome);
                 Application->CreateForm(__classid(TfrmPYXZ), &frmPYXZ);
                 Application->CreateForm(__classid(TfrmBFLB), &frmBFLB);
                 Application->CreateForm(__classid(TfrmGDXZ), &frmGDXZ);
                 Application->CreateForm(__classid(TfrmGXDG), &frmGXDG);
                 Application->CreateForm(__classid(TfrmXBXZ), &frmXBXZ);
                 Application->CreateForm(__classid(TfrmGQLB), &frmGQLB);
                 frmDemo->Hide();
      delete frmDemo;
      Application->Run();
   }catch (Exception &exception){
      Application->ShowException(&exception);
   }
   return 0;
}
//---------------------------------------------------------------------------