//--------------------------------------------------------------------------- #include #pragma hdrstop USERES("InstallManager.res"); USEFORM("MainFrm.cpp", MainForm); USEFORM("StatusFrm.cpp", StatusForm); USEFORM("RemoteMntFrm.cpp", RemoteMntForm); USEFORM("InfoFrm.cpp", InfoForm); USEFORM("cipherfrm.cpp", CipherForm); USEFORM("UninstallFrm.cpp", UninstallForm); USELIB("..\..\..\icu-sword\as_is\borland\icudatab.lib"); USEUNIT("..\..\swwinlog.cpp"); USEUNIT("..\..\..\sword\src\mgr\installmgr.cpp"); USELIB("..\..\..\sword\lib\libsword.lib"); USELIB("..\..\..\icu-sword\as_is\borland\icuuc.lib"); USELIB("..\..\..\icu-sword\as_is\borland\icuin.lib"); USELIB("..\..\clucene\clucene.lib"); USEFORM("UnsuFrm.cpp", UnsuForm); USEUNIT("..\..\..\sword\src\mgr\ftplibftpt.cpp"); USEUNIT("..\..\..\sword\src\utilfuns\ftplib.c"); USEOBJ("..\..\TntUnicodeControls.attic\TntControls.obj"); USEOBJ("..\..\TntUnicodeControls.attic\TntStdCtrls.obj"); USEOBJ("..\..\TntUnicodeControls.attic\TntSystem.obj"); USEOBJ("..\..\TntUnicodeControls.attic\Unicode.obj"); USEOBJ("..\..\TntUnicodeControls.attic\TntClasses.obj"); USEOBJ("..\..\TntUnicodeControls.attic\TntComCtrls.obj"); //--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->Title = "Install Manager"; Application->CreateForm(__classid(TMainForm), &MainForm); Application->CreateForm(__classid(TStatusForm), &StatusForm); Application->CreateForm(__classid(TRemoteMntForm), &RemoteMntForm); Application->CreateForm(__classid(TInfoForm), &InfoForm); Application->CreateForm(__classid(TCipherForm), &CipherForm); Application->CreateForm(__classid(TUninstallForm), &UninstallForm); Application->CreateForm(__classid(TUnsuForm), &UnsuForm); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; } //---------------------------------------------------------------------------