Übersetzung Class MagneticWindow

[EWeiss]

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ß