www.pudn.com > CommSettings.rar > TestSettings.cpp

//--------------------------------------------------------------------------- 
 
#include  
#pragma hdrstop 
//--------------------------------------------------------------------------- 
USEFORM("UnitMain.cpp", Form1); 
USEFORM("UnitCommSet.cpp", FormCommSettings); 
USEFORM("UnitAbout.cpp", FormAbout); 
USEFORM("UnitOptions.cpp", FormOptions); 
//--------------------------------------------------------------------------- 
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) 
{ 
    try 
    { 
         Application->Initialize(); 
         Application->CreateForm(__classid(TForm1), &Form1); 
         Application->Run(); 
    } 
    catch (Exception &exception) 
    { 
         Application->ShowException(&exception); 
    } 
    catch (...) 
    { 
         try 
         { 
             throw Exception(""); 
         } 
         catch (Exception &exception) 
         { 
             Application->ShowException(&exception); 
         } 
    } 
    return 0; 
} 
//---------------------------------------------------------------------------