From 2e7c55f25e1ef96f5cd84b576acdb8df8bff9661 Mon Sep 17 00:00:00 2001 From: Aleksander Misztal Date: Sat, 9 Feb 2019 02:50:53 +0000 Subject: [PATCH] =?UTF-8?q?Prze=C5=9Blij=20pliki=20do=20''?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Project1.~bpr | 101 ++++++++++++++++++++++++++++++++++++++++++++++++++ Project1.~cpp | 35 +++++++++++++++++ 2 files changed, 136 insertions(+) create mode 100644 Project1.~bpr create mode 100644 Project1.~cpp diff --git a/Project1.~bpr b/Project1.~bpr new file mode 100644 index 0000000..ce94fb9 --- /dev/null +++ b/Project1.~bpr @@ -0,0 +1,101 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +[Version Info] +IncludeVerInfo=0 +AutoIncBuild=0 +MajorVer=1 +MinorVer=0 +Release=0 +Build=0 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=1045 +CodePage=1250 + +[Version Info Keys] +CompanyName= +FileDescription= +FileVersion=1.0.0.0 +InternalName= +LegalCopyright= +LegalTrademarks= +OriginalFilename= +ProductName= +ProductVersion=1.0.0.0 +Comments= + +[Debugging] +DebugSourceDirs=$(BCB)\source\vcl + +[Parameters] +RunParams= +Launcher= +UseLauncher=0 +DebugCWD= +HostApplication= +RemoteHost= +RemotePath= +RemoteLauncher= +RemoteCWD= +RemoteDebug=0 + +[Compiler] +ShowInfoMsgs=0 +LinkDebugVcl=0 + + \ No newline at end of file diff --git a/Project1.~cpp b/Project1.~cpp new file mode 100644 index 0000000..67b20a2 --- /dev/null +++ b/Project1.~cpp @@ -0,0 +1,35 @@ +//--------------------------------------------------------------------------- + +#include +#pragma hdrstop +//--------------------------------------------------------------------------- +USEFORM("Unit1.cpp", Form1); +USEFORM("Unit2.cpp", Form2); +//--------------------------------------------------------------------------- +WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) +{ + try + { + Application->Initialize(); + Application->CreateForm(__classid(TForm1), &Form1); + 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; +} +//---------------------------------------------------------------------------