要写个补丁，用WriteProcessMemory方法已经实现完了，现在学习用HOOK后做补丁的实现方法，在这里自己构造了个函数，在这方面出了问题，请大牛们指点一下：
自定义了一个函数，在写内存的时候发现在调用一次的时候写入地址数据正常，当调用第二次的时候在隔四个字节的地方加上b8 25 95 00这样的字节，不明白为什么，请帮助解答一下，代码如下：
function WriteMemory(address:Integer;Bname:array of byte):Boolean;
var
i:Integer;
pData:array of ^Integer;
dwOldProtect: DWORD;
mbi_thunk:TMemoryBasicInformation;
begin
SetLength(pData,SizeOf(Bname));//有的地方说传入的参数不能是静态数组，我两种方式都试过了，也可以呀
for i:=0 to SizeOf(Bname)do
begin
pData:=Pointer(address+i);//将地址传入指针数组
// VirtualQuery(pdata, mbi_thunk, sizeof(MEMORY_BASIC_INFORMATION));
end;
//改变页保护属性为读写，用网上学来的方法不变加上了，mbi_thunk.baseaddress也用了pdata的起使地址试了，大小也两种都试了，都一样。
VirtualProtect(mbi_thunk.BaseAddress, mbi_thunk.RegionSize,PAGE_READWRITE, mbi_thunk.Protect);
for i:=0 to SizeOf(Bname)-1 do
begin
PByte(pdata)^:=bname; //修改指定地址为传入的数组内容。
end;
VirtualProtect(mbi_thunk.BaseAddress, mbi_thunk.RegionSize,mbi_thunk.Protect, dwOldProtect);
Result :=True;
end;
调用代码如下：
procedure TForm1.Button2Click(Sender: TObject);
const
temp : array[0..1] of byte = ($34,$35);
temp1 : array[0..1] of byte = ($34,$35);
begin
WriteMemory($00450cf8,killb);
WriteMemory($00450cfe,killc); //当这里为一次writememort调用的时候发现正常，两次的时候在00450d04的地址上就加上了b8 25 95 00 不明白是为什么。
end;
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
以下是全部代码：
unit Unit1;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function WriteMemory(address:Integer;Bname:array of byte):Boolean;
var
i:Integer;
pData:array of ^Integer;
dwOldProtect: DWORD;
mbi_thunk:TMemoryBasicInformation;
begin
SetLength(pData,SizeOf(Bname));
for i:=0 to SizeOf(Bname)do
begin
pData:=Pointer(address+i);
// VirtualQuery(pdata, mbi_thunk, sizeof(MEMORY_BASIC_INFORMATION));
end;
//改变页保护属性为读写
VirtualProtect(mbi_thunk.BaseAddress, mbi_thunk.RegionSize,PAGE_READWRITE, mbi_thunk.Protect);
//VirtualProtect(pdata, mbi_thunk.RegionSize,PAGE_READWRITE, mbi_thunk.AllocationBase);
for i:=0 to SizeOf(Bname)-1 do
begin
PByte(pdata)^:=bname; //修改指定地址为XX
end;
VirtualProtect(mbi_thunk.BaseAddress, mbi_thunk.RegionSize,mbi_thunk.Protect, dwOldProtect);
Result :=True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
procedure TForm1.Button2Click(Sender: TObject);
const
temp : array[0..1] of byte = ($34,$35);
temp1 : array[0..1] of byte = ($34,$35);
begin
WriteMemory($00450cf8,temp);
WriteMemory($00450cfe,temp1);
end;
