xtml.cpp

来自「《bcb深度历险》 电子书」· C++ 代码 · 共 34 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
USERES("xtml.res");
USEFORM("main.cpp", MainForm);
USEUNIT("util.cpp");
USEUNIT("..\..\unit\xControls.pas");
USEUNIT("..\..\unit\xFiles.pas");
USEUNIT("..\..\unit\xFonts.pas");
USEUNIT("..\..\unit\xRegistry.pas");
USEUNIT("..\..\unit\xUtils.pas");
USEUNIT("..\..\unit\xDesktop.pas");
USEUNIT("..\..\unit\xGraphics.pas");
USEFORM("about.cpp", AboutBox);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->Title = "XTheme Manager Lite";
                 Application->CreateForm(__classid(TMainForm), &MainForm);
                 Application->CreateForm(__classid(TAboutBox), &AboutBox);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;
}
//---------------------------------------------------------------------------