Delphi封包发送截取源码类似WPE

一个Delphi的封包截取发送源码，实测编译通过可以用。1.0不提供封包修改，1.2提供封包修改。1.0和1.2均已打包

//---------------------------------------------------------------------
#include 
#pragma hdrstop

#include “s6main.h“
#include “uprinting.hpp“
//---------------------------------------------------------------------
#pragma link “MPHexEditor“
#pragma link “MPHexEditorEx“
#pragma resource “*.dfm“
TfmMain *fmMain;
//---------------------------------------------------------------------
__fastcall TfmMain::TfmMain（TComponent *AOwner）
	: TForm（AOwner）
{
}
//---------------------------------------------------------------------

void __fastcall TfmMain::FileNew1Execute（Tobject *Sender）
{
  // Keine Aktion notwendig
  MPHexEditorEx1->CreateEmptyFile（““）;
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::FileOpen1Execute（Tobject *Sender）
{
  if （OpenDialog->Execute（）） {
    MPHexEditorEx1->LoadFromFile（OpenDialog->FileName）;
  };
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::FileSaveAs1Execute（Tobject *Sender）
{
  if （SaveDialog->Execute（）） {
    MPHexEditorEx1->SaveToFile（SaveDialog->FileName）;
  }
}
//---------------------------------------------------------------------------


void __fastcall TfmMain::FileExit1Execute（Tobject *Sender）
{
  Close（）;        
}
//---------------------------------------------------------------------------


void __fastcall TfmMain::FileSave1Update（Tobject *Sender）
{
  FileSave1->Enabled = MPHexEditorEx1->HasFile && MPHexEditorEx1->Modified;
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::FileSaveAs1Update（Tobject *Sender）
{
  FileSaveAs1->Enabled = （MPHexEditorEx1->DataSize > 0）;
}
//---------------------------------------------------------------------------


void __fastcall TfmMain::FileSave1Execute（Tobject *Sender）
{
  MPHexEditorEx1->Save（）;        
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::EditCut1Update（Tobject *Sender）
{
  EditCut1->Enabled = MPHexEditorEx1->CanCut（）;
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::EditCopy1Update（Tobject *Sender）
{
  EditCopy1->Enabled = MPHexEditorEx1->CanCopy（）;
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::EditPaste1Update（Tobject *Sender）
{
  EditPaste1->Enabled = MPHexEditorEx1->CanPaste（）;
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::EditCut1Execute（Tobject *Sender）
{
  MPHexEditorEx1->CBCut（）;
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::EditCopy1Execute（Tobject *Sender）
{
  MPHexEditorEx1->CBCopy（）;
}
//---------------------------------------------------------------------------

void __fastcall TfmMain:

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件     133637  2007-09-30 17:23  Packethack1.2\hexedit_20070930\doc\MPHexEditor.chm

     文件       1139  2004-06-07 19:35  Packethack1.2\hexedit_20070930\samples\Custom Translation\ct1.dfm

     文件       1631  2004-06-07 19:41  Packethack1.2\hexedit_20070930\samples\Custom Translation\ct1.pas

     文件        185  2003-12-10 17:24  Packethack1.2\hexedit_20070930\samples\Custom Translation\custtrans.dpr

     文件        876  2004-08-29 13:23  Packethack1.2\hexedit_20070930\samples\Custom Translation\custtrans.res

     文件       4287  2004-12-29 16:00  Packethack1.2\hexedit_20070930\samples\Hex-Editor （BCB6）\s6main.cpp

     文件      26277  2004-12-29 16:01  Packethack1.2\hexedit_20070930\samples\Hex-Editor （BCB6）\s6main.dfm

     文件       3521  2004-12-29 15:34  Packethack1.2\hexedit_20070930\samples\Hex-Editor （BCB6）\s6main.h

     文件       4585  2004-12-29 16:02  Packethack1.2\hexedit_20070930\samples\Hex-Editor （BCB6）\sampleBCB6.bpr

     文件       1082  2004-12-29 16:00  Packethack1.2\hexedit_20070930\samples\Hex-Editor （BCB6）\sampleBCB6.cpp

     文件       4368  2004-12-29 15:30  Packethack1.2\hexedit_20070930\samples\Hex-Editor （BCB6）\sampleBCB6.res

     文件       3987  2004-12-29 12:43  Packethack1.2\hexedit_20070930\samples\Hex-Editor （BCB6）\uprinting.dfm

     文件       4748  2004-12-29 16:02  Packethack1.2\hexedit_20070930\samples\Hex-Editor （BCB6）\uprinting.hpp

     文件      10080  2004-12-29 16:02  Packethack1.2\hexedit_20070930\samples\Hex-Editor （BCB6）\uprinting.pas

     文件        694  2004-12-29 11:33  Packethack1.2\hexedit_20070930\samples\Hex-Editor （BCB6）\uprintprogress.dfm

     文件       2825  2004-12-29 16:02  Packethack1.2\hexedit_20070930\samples\Hex-Editor （BCB6）\uprintprogress.hpp

     文件       2388  2004-12-29 11:32  Packethack1.2\hexedit_20070930\samples\Hex-Editor （BCB6）\uprintprogress.pas

     文件        652  2002-07-14 19:00  Packethack1.2\hexedit_20070930\samples\Hex-Editor （D6+）\sample2.dpr

     文件       4292  2007-09-30 12:14  Packethack1.2\hexedit_20070930\samples\Hex-Editor （D6+）\sample2.res

     文件        911  2007-09-30 13:13  Packethack1.2\hexedit_20070930\samples\Hex-Editor （D6+）\uconvert.dfm

     文件       1629  2002-07-11 09:49  Packethack1.2\hexedit_20070930\samples\Hex-Editor （D6+）\uconvert.pas

     文件       2848  2007-09-30 13:13  Packethack1.2\hexedit_20070930\samples\Hex-Editor （D6+）\ucustomtranslation.dfm

     文件       6728  2003-09-09 18:40  Packethack1.2\hexedit_20070930\samples\Hex-Editor （D6+）\ucustomtranslation.pas

     文件        932  2007-09-30 13:13  Packethack1.2\hexedit_20070930\samples\Hex-Editor （D6+）\ufind.dfm

     文件       2151  2003-05-19 21:44  Packethack1.2\hexedit_20070930\samples\Hex-Editor （D6+）\ufind.pas

     文件        779  2007-09-30 13:13  Packethack1.2\hexedit_20070930\samples\Hex-Editor （D6+）\uinputnumber.dfm

     文件        971  2002-07-13 19:05  Packethack1.2\hexedit_20070930\samples\Hex-Editor （D6+）\uinputnumber.pas

     文件      36750  2007-09-30 13:14  Packethack1.2\hexedit_20070930\samples\Hex-Editor （D6+）\umain.dfm

     文件      29911  2006-12-06 20:11  Packethack1.2\hexedit_20070930\samples\Hex-Editor （D6+）\umain.pas

     文件       3448  2007-09-30 13:13  Packethack1.2\hexedit_20070930\samples\Hex-Editor （D6+）\uOptions.dfm

............此处省略182个文件信息