cb3demo.cpp

漏洞扫描系列中HB Network Scanner 测试用练习代码

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("cb3demo.res");
USEFORMNS("about.pas", About, frmAbout);
USEFORMNS("afamain.pas", Afamain, fmamain);
USEFORMNS("afbmpctl.pas", Afbmpctl, fmbmpctrls);
USEFORMNS("afboxs.pas", Afboxs, fmboxs);
USEFORMNS("afbtns.pas", Afbtns, afmbtns);
USEFORMNS("afgrids.pas", Afgrids, fmGrids);
USEFORMNS("afincts.pas", Afincts, fmincts);
USEFORMNS("afmanio.pas", Afmanio, fmanio);
USEFORMNS("afpnls.pas", Afpnls, fmpnls);
USEFORMNS("afsts.pas", Afsts, fmsts);
USEFORMNS("exregion.pas", Exregion, fexRegion);
USEFORMNS("fclbtns.pas", Fclbtns, FrmBtns);
USEFORMNS("frmcg.pas", Frmcg, frmCGDemo);
USEFORMNS("frmcllbs.pas", Frmcllbs, FrmLbs);
USEFORMNS("frmeff.pas", Frmeff, frmEffDemo);
USEFORMNS("frmknd.pas", Frmknd, frmKinds);
USEFORMNS("frmlld.pas", Frmlld, frmLLDemo);
USEFORMNS("frmold.pas", Frmold, frmOldVersion);
USEFORMNS("frmor.pas", Frmor, frmMorph);
USEFORMNS("main.pas", Main, frmMain);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TfrmMain), &frmMain);
                 Application->CreateForm(__classid(TfrmAbout), &frmAbout);
                 Application->CreateForm(__classid(Tfmamain), &fmamain);
                 Application->CreateForm(__classid(Tfmbmpctrls), &fmbmpctrls);
                 Application->CreateForm(__classid(Tfmboxs), &fmboxs);
                 Application->CreateForm(__classid(Tafmbtns), &afmbtns);
                 Application->CreateForm(__classid(TfmGrids), &fmGrids);
                 Application->CreateForm(__classid(Tfmincts), &fmincts);
                 Application->CreateForm(__classid(Tfmanio), &fmanio);
                 Application->CreateForm(__classid(Tfmpnls), &fmpnls);
                 Application->CreateForm(__classid(Tfmsts), &fmsts);
                 Application->CreateForm(__classid(TfexRegion), &fexRegion);
                 Application->CreateForm(__classid(TFrmBtns), &FrmBtns);
                 Application->CreateForm(__classid(TfrmCGDemo), &frmCGDemo);
                 Application->CreateForm(__classid(TFrmLbs), &FrmLbs);
                 Application->CreateForm(__classid(TfrmEffDemo), &frmEffDemo);
                 Application->CreateForm(__classid(TfrmKinds), &frmKinds);
                 Application->CreateForm(__classid(TfrmLLDemo), &frmLLDemo);
                 Application->CreateForm(__classid(TfrmOldVersion), &frmOldVersion);
                 Application->CreateForm(__classid(TfrmMorph), &frmMorph);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;
}
//---------------------------------------------------------------------------