diff --git a/interface/Project2.bpr b/interface/Project2.bpr new file mode 100644 index 0000000..bab84de --- /dev/null +++ b/interface/Project2.bpr @@ -0,0 +1,99 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +[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/interface/Project2.cpp b/interface/Project2.cpp new file mode 100644 index 0000000..2caa102 --- /dev/null +++ b/interface/Project2.cpp @@ -0,0 +1,33 @@ +//--------------------------------------------------------------------------- + +#include +#pragma hdrstop +//--------------------------------------------------------------------------- +USEFORM("ProjektCrane.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; +} +//--------------------------------------------------------------------------- diff --git a/interface/Project2.exe b/interface/Project2.exe new file mode 100644 index 0000000..a3e9d70 Binary files /dev/null and b/interface/Project2.exe differ diff --git a/interface/Project2.obj b/interface/Project2.obj new file mode 100644 index 0000000..332f4e5 Binary files /dev/null and b/interface/Project2.obj differ diff --git a/interface/Project2.res b/interface/Project2.res new file mode 100644 index 0000000..1e5f7f3 Binary files /dev/null and b/interface/Project2.res differ