Habe die aktuelle Version noch mal hochgeladen.
Fehlte noch eine 'end else' abfrage in Subclass_Start.
Jetzt wird es mal wieder schwierig.
PATCH_0A = 186; //Address of the owner object
zPatchVal(VarPtr(sc_aBuf(1)), PATCH_0A, ObjPtr(Me))
VarPtr ??? , ObjPtr ???
und
Delphi-Quellcode:
procedure TMagnetic.zPatchVal(nAddr: Integer; nOffset: Integer; nValue: Integer);
//Patch the machine code buffer at the indicated offset with the passed value
begin
RtlMoveMemory(nAddr + nOffset, nValue, 4);
End;
RtlMoveMemory ???
Edit:
Scheint das gleiche wie CopyMemory zu sein!
Code:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (xDest As Any, xSource As Any, ByVal nbytes As Long)
gruß