www.pudn.com > vod2007.rar > KTV.cpp

//--------------------------------------------------------------------------- 
 
#include  
#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; 
} 
//---------------------------------------------------------------------------