path: root/Diaspora/Diaspora.cpp

/*
 *
 * Copyright 2001 CrossWire Bible Society (http://www.crosswire.org)
 *	CrossWire Bible Society
 *	P. O. Box 2528
 *	Tempe, AZ  85280-2528
 *
 * This program is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the
 * Free Software Foundation version 2.
 *
 * This program is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 *
 */
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
USERES("Diaspora.res");
USEFORM("Main.cpp", MainForm);
USEUNIT("thmlpbr.cpp");
USELIB("..\..\sword\lib\libsword.lib");
USELIB("..\..\icu-sword\as_is\borland\icucommon.lib");
USELIB("..\..\icu-sword\as_is\borland\icudatab.lib");
USELIB("..\..\icu-sword\as_is\borland\icui18n.lib");
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->Title = "Diaspora";
                 Application->CreateForm(__classid(TMainForm), &MainForm);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;
}
//---------------------------------------------------------------------------