First commit 01/10/1999

This commit is contained in:
2021-09-12 21:58:47 +02:00
commit 0afd7e9fed
15 changed files with 735 additions and 0 deletions

29
CTapiz.cpp Normal file
View File

@ -0,0 +1,29 @@
//---------------------------------------------------------------------------
#include <registry.hpp>
#include <vcl.h>
#pragma hdrstop
USERES("CTapiz.res");
USEFORM("CTapiz_mm.cpp", CTapiz);
HINSTANCE g_hinst;
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE hInstance, HINSTANCE, LPSTR lpCmdLine, int)
{
try
{
Application->Initialize();
g_hinst = hInstance;
Application->Title = "CambiarTapiz!";
Application->CreateForm(__classid(TCTapiz), &CTapiz);
Application->ShowMainForm = false;
if ( AnsiString( lpCmdLine ).IsEmpty() )
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------