#1 一个有些类似APIHOOK的问题，请高手帮忙看看
function TrueFunctionAddress(func: Pointer): Pointer;
var
Code: PlmportCode;
begin
Result := func;
if func = nil then exit;
try
Code := func;
if (Code.jumplnstruction = $25FF) then
begin
Result := Code.AddressOfPointer_ToFunction^;
end;
except
Result := nil;
end;
end;


procedure doit;
begin
messagebox(0,'执行动作','',mb_ok);
end;

用TrueFunctionAddress(@doit);可以得到doit的地址比如我要修改 $00404200 这个地方� ..

#1 >>Next Page

Forum:技术板块灌水区 ...
Thread:一个有些类似APIHOOK ...
Next Thread:delphi for php 试用 ...

Home
Login

Powered by Discuz!