cmanager.cpp

一个小巧实用的电子书库程序

//(R)CopyRight KivenSoft International ,inc 1998
//程序名称：电子书库
//作    者：李会文
//开始时间：1998.7.28
//最后修改：1998.9.28
//---------------------------------------------------------------------------
#include <vcl.h>
#include "About.h"
#pragma hdrstop
USERES("Cmanager.res");
USEFORM("About.cpp", AboutBox);
USEFORM("Option.cpp", OptionForm);
USEFORM("MainUnit.cpp", MainForm);
//---------------------------------------------------------------------------
DWORD ITime;
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    try
    {
        Application->Initialize();
        AboutBox=new TAboutBox(AboutBox);
        AboutBox->BorderStyle=bsNone;
        AboutBox->OKButton->Visible=false;
        AboutBox->ClientHeight=AboutBox->Panel1->Top+AboutBox->Panel1->Height+10;
        AboutBox->Show();
        AboutBox->Update();
        ITime=GetTickCount();
        Application->CreateForm(__classid(TMainForm), &MainForm);
        Application->Run();
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }
    return 0;
}
//---------------------------------------------------------------------------