cppdemo.cpp

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

//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USERES("cppdemo.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;
}
//---------------------------------------------------------------------------