Под Delphi есть готовая библиотека advApiHook.pas вроде есть в исходниках пакетхака.
Там есть функция
function HookProc(lpModuleName, lpProcName: PChar; NewProc: pointer; var OldProc: pointer): boolean;
PHP код:
var OnDieOriginal: function (lpLibFileName: PAnsiChar): integer;
function NewFunc: integer; begin
//код
Result:= OnDieOriginal;//вызов оригинальной функции end;
HookProc('Engine.dll', 'OnDie', @NewFunc, @OnDieOriginal);
Но в таком виде прокатит только если перехватываемая функция идет без параметров, так как в Delphi в функции параметры передаются как stdCall, а в клиенте l2 fastcall. Нужно лепить специальный переходник. Xсor где то выкладывал на форуме.
__________________
Продажа чистых аккаунтов 4G, L2 EU, AARu, AA EU, Aion EU, Tera RU, Tera EU (ICQ 594297609)
Продажа VK авторег аккаунтов (ICQ 594297609)
Последний раз редактировалось Yegor, 19.09.2013 в 10:31.
|