//--------------------------------------------------------------------------- #include <vcl\vcl.h> #pragma hdrstop //--------------------------------------------------------------------------- USEFORM("EmberForm.cpp", Form1); USEUNIT("EmberThread.cpp"); USEFORM("EmberDialog.cpp", SendDialog); USEUNIT("..\update.c"); USEUNIT("..\act_info.c"); USEUNIT("..\act_move.c"); USEUNIT("..\act_obj.c"); USEUNIT("..\act_wiz.c"); USEUNIT("..\bit.c"); USEUNIT("..\board.c"); USEUNIT("..\clan.c"); USEUNIT("..\comm.c"); USEUNIT("..\const.c"); USEUNIT("..\db.c"); USEUNIT("..\fight.c"); USEUNIT("..\handler.c"); USEUNIT("..\interp.c"); USEUNIT("..\magic.c"); USEUNIT("..\mem.c"); USEUNIT("..\olc.c"); USEUNIT("..\olc_act.c"); USEUNIT("..\olc_save.c"); USEUNIT("..\random.c"); USEUNIT("..\save.c"); USEUNIT("..\skills.c"); USEUNIT("..\string.c"); USEUNIT("..\act_comm.c"); USEUNIT("..\Win32Common\win32util.c"); USEUNIT("..\Win32Common\crypt_util.c"); USERES("EmberGUI.res"); USEUNIT("..\mud_progs.c"); USEUNIT("..\mprog_procs.c"); USEUNIT("..\mprog_commands.c"); USEUNIT("..\ssm.c"); //--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TForm1), &Form1); Application->CreateForm(__classid(TSendDialog), &SendDialog); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; } //---------------------------------------------------------------------------