hola tengo un problema, lo que intento hacer es obtener la address de un procedure de la memoria y despues restarla con otra y despues volver a restarle 5 y esa funcion me devuelva un DWORD como valor de retorno:
aca el codigo:
Código Delphi
[-]procedure creaItemFilter; stdcall;
var
punteroProc: procedure(parametro: boolean; otro: string);
begin
punteroProc:=@ItemFilterASM;
PByte(ItemFilter)^:=$E9;
PDword(ItemFilter+1)^:=jmp($0050E851,punteroProc);
end;
Código Delphi
[-]function jmp(from,tooWORD): DWORD;
var
jmpto:dword;
begin
jmpto:=dword(from)-NativeInt(too)-5;
Result := jmpto;
end;
Código Delphi
[-]procedure ItemFilterASM(parametro: boolean; otro: string);stdcall;
ahi estan las declaraciones me bota el siguiente error el compilador en el jmp($0050E851,punteroProc); el cual es el siguiente:
Cita:
not enough actual parameters
|
que parametro estoy olvidando??? o.o!!!