access.cpp

FlexGraphics是一套创建矢量图形的VCL组件

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

#include <vcl.h>
#pragma hdrstop
USERES("Access.res");
USEUNIT("..\Utils.pas");
USEFORMNS("..\fAboutPrg.pas", Faboutprg, formAbout);
USEFORMNS("..\fControl.pas", Fcontrol, fmControl);
USEUNIT("..\FlexCards.pas");
USEFORMNS("..\fMain.pas", Fmain, fmMain);
USEFORMNS("..\fOptions.pas", Foptions, fmOptions);
USEFORMNS("..\fPersCard.pas", Fperscard, fmPersonCard);
USEFORMNS("..\fSplash.pas", Fsplash, fmSplash);
USEFORMNS("..\dMain.pas", Dmain, dmMain); /* TDataModule: File Type */
USEUNIT("..\..\ACControls\ACCtrls.pas");
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->Title = "Access control system (demo)";
                 Application->CreateForm(__classid(TdmMain), &dmMain);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;
}
//---------------------------------------------------------------------------