//--------------------------------------------------------------------------- USEFORM("..\Socks1.cpp", SocksTestForm); //--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TSocksTestForm), &SocksTestForm); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; }
//Об игре---------------------------------------------------------------------- void __fastcall Tmain_window::N1Click(TObject *Sender) { //Создаем форму AboutForm Application->CreateForm(__classid(TAboutForm), &AboutForm); //Показываем форму AboutForm AboutForm->Show(); }
//--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TfrmCustomers), &frmCustomers); Application->CreateForm(__classid(TfrmOrders), &frmOrders); Application->CreateForm(__classid(TfrmAbout), &frmAbout); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; }
//--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->Title = "Gleichstromtechnik"; 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; }
//--------------------------------------------------------------------------- extern "C" int FMXmain() { try { Application->Initialize(); Application->FormFactor->Orientations = TScreenOrientations() << TScreenOrientation::Portrait; Application->CreateForm(__classid(TForm3D4), &Form3D4); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; }
//--------------------------------------------------------------------------- __fastcall TFormDB::TFormDB(TComponent* Owner) : TForm(Owner) { TPicture::RegisterFileFormat(L"png", L"Files PNG", __classid(TPngImage)) ; m_pantone = NULL; m_history = NULL; }
//--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->Title = "The Refrigerator Puzzle Solver"; Application->CreateForm(__classid(TFormSolvePuzzle), &FormSolvePuzzle); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; }
//--------------------------------------------------------------------------- int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int) { try { Application->Initialize(); Application->MainFormOnTaskBar = true; TStyleManager::TrySetStyle("Cobalt XEMedia"); 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; }
//--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TWatchDog), &WatchDog); Application->Run(); } catch (Exception &exception) { Sysutils::ShowException(&exception, System::ExceptAddr()); } catch(...) { try { throw Exception(""); } catch(Exception &exception) { Sysutils::ShowException(&exception, System::ExceptAddr()); } } return 0; }
//--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TJvOutlookBarCustomDrawDemoMainFrm), &JvOutlookBarCustomDrawDemoMainFrm); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; }
//--------------------------------------------------------------------------- USEFORM("C:\Program Files (x86)\Borland\CBuilder6\Bin\lab midps\1\a\a.cpp", Form1); //--------------------------------------------------------------------------- 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; }
//--------------------------------------------------------------------------- USEFORM("..\OverbyteIcsCli5.cpp", ClientForm); //--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TClientForm), &ClientForm); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; }
//--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->Title = "Hometrainer 2 Test Creater"; Application->CreateForm(__classid(TFormCreateTest), &FormCreateTest); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; }
//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop //--------------------------------------------------------------------------- USEFORM("..\..\..\Source\GUI\VCL\GUI_Preferences_Output.cpp", Preferences_OutputF); USEFORM("..\..\..\Source\GUI\VCL\GUI_Web.cpp", WebF); USEFORM("..\..\..\Source\GUI\VCL\GUI_Export.cpp", ExportF); USEFORM("..\..\..\Source\GUI\VCL\GUI_Main.cpp", MainF); /* TTntForm: File Type */ USEFORM("..\..\..\Source\GUI\VCL\GUI_Preferences_Custom.cpp", Preferences_CustomF); USEFORM("..\..\..\Source\GUI\VCL\GUI_Preferences.cpp", PreferencesF); /* TTntForm: File Type */ USEFORM("..\..\..\Source\GUI\VCL\GUI_Preferences_Sheet.cpp", Preferences_SheetF); USEFORM("..\..\..\Source\GUI\VCL\GUI_Preferences_Language.cpp", Preferences_LanguageF); /* TTntForm: File Type */ USEFORM("..\..\..\Source\GUI\VCL\GUI_About.cpp", AboutF); /* TTntForm: File Type */ //--------------------------------------------------------------------------- WINAPI wWinMain(HINSTANCE, HINSTANCE, LPWSTR, int) { try { Application->Initialize(); Application->Title = "MediaInfo"; Application->CreateForm(__classid(TMainF), &MainF); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; }
//--------------------------------------------------------------------------- int WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); SetApplicationMainFormOnTaskBar(Application, true); 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; }
//--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TFMain), &FMain); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; }
//--------------------------------------------------------------------------- extern "C" int FMXmain() { try { Application->Initialize(); Application->CreateForm(__classid(TForm5), &Form5); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; }
//--------------------------------------------------------------------------- WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int) { try { Application->Initialize(); Application->MainFormOnTaskBar = true; Application->CreateForm(__classid(TForm2), &Form2); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; }
//--------------------------------------------------------------------------- USEFORM("..\AP\Simple Calculator\Unit1.cpp", Form1); //--------------------------------------------------------------------------- int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int) { try { Application->Initialize(); Application->MainFormOnTaskBar = true; 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; }
//--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->Title = "The Rampal Etienne Project multi-run GUI"; Application->CreateForm(__classid(TFormAnalyse), &FormAnalyse); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; }
//--------------------------------------------------------------------------- int Initialization() { TPersistentClass classes[] = { __classid(TButton) }; // to copy button to clipboard RegisterClasses(classes, (sizeof(classes)/sizeof(classes[0])) - 1); return 0; }
USEFORM("..\Ftptst2.cpp", DirectoryForm); //--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TFtpReceiveForm), &FtpReceiveForm); Application->CreateForm(__classid(TDirectoryForm), &DirectoryForm); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; }
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); g_AppPath = ExtractFilePath(Application->ExeName); Application->Title = "pmc 实时数据库组态"; Application->CreateForm(__classid(TfrmMain), &frmMain); Application->CreateForm(__classid(TAboutBox), &AboutBox); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; }
USEFORM("..\SrvDemo2.cpp", CliForm); //--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TSrvForm), &SrvForm); Application->CreateForm(__classid(TCliForm), &CliForm); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; }
// --------------------------------------------------------------------------- // TDaxFailClassImpl - Class Factory // --------------------------------------------------------------------------- static void createFactory() { new TCppAutoObjectFactory<TDaxFailClassImpl>(Comserv::GetComServer(), __classid(TDaxFailClassImpl), CLSID_DaxFailClass, Comobj::ciMultiInstance, Comobj::tmApartment); }
//--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TDataModule1), &DataModule1); Application->CreateForm(__classid(TForm1), &Form1); Application->CreateForm(__classid(TfCustomPreview), &fCustomPreview); Application->CreateForm(__classid(TForm2), &Form2); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; }
USEFORM("..\MailRcv2.cpp", MessageForm); //--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TPOP3ExcercizerForm), &POP3ExcercizerForm); Application->CreateForm(__classid(TMessageForm), &MessageForm); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; }
//--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TFormSceneInspectorForm), &FormSceneInspectorForm); Application->CreateForm(__classid(TFormObjectPropertiesForm), &FormObjectPropertiesForm); Application->CreateForm(__classid(TFormClippingVolumePropertiesForm), &FormClippingVolumePropertiesForm); Application->CreateForm(__classid(TFormTexturedSurfacePropertiesForm), &FormTexturedSurfacePropertiesForm); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; }
//--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TForm1), &Form1); Application->CreateForm(__classid(TForm2), &Form2); Application->CreateForm(__classid(TForm3), &Form3); Application->CreateForm(__classid(TForm4), &Form4); Application->CreateForm(__classid(TForm5), &Form5); Application->CreateForm(__classid(TForm6), &Form6); Application->CreateForm(__classid(TSettings), &Settings); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; }
//--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TMainForm), &MainForm); Application->CreateForm(__classid(TAboutBox), &AboutBox); Application->CreateForm(__classid(TfrmTransformations), &frmTransformations); Application->CreateForm(__classid(TfrmCreateMeasur), &frmCreateMeasur); Application->CreateForm(__classid(TInputBoxP), &InputBoxP); Application->CreateForm(__classid(TfrmRelativeDiscripion), &frmRelativeDiscripion); Application->CreateForm(__classid(TfrmWait), &frmWait); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; }