//--------------------------------------------------------------------------- #include #pragma hdrstop USERES("Samp.res"); USEFORM("MainUnit.cpp", MainForm); USEFORM("DetectUnit.cpp", DetectForm); USELIB("CBAIOUSB.lib"); //--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TMainForm), &MainForm); Application->CreateForm(__classid(TDetectForm), &DetectForm); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; } //---------------------------------------------------------------------------