出错

Question

procedure BHook(Ch:Char);
begin
ShowMessage('');
end;Procedure Hook(Ch:Char);
begin
ShowMessage('成功');
end;procedure TForm1.Button1Click(Sender: TObject);
var
M_Hook1:M_Hook;
D,D1,D2:DWORD;
begin
D:=Dword(@Hook);
VirtualProtect(@BHook,5,PAGE_READWRITE ,D2);
WriteProcessMemory(GEtCurrentProcess,@BHook,@D,5,D1);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Bhook('d');
end;  //到这步出错啊,怎么回事啊~~~  这个是最后一步啊,也已经现实成功了啊,但还是要错个错

Answer 1

是编译错，还是运行错？错误信息是什么？

Answer 2

我也想知道，正在找這方面的資料~~~~~