XE2 und dxgettext / gnugettext.pas

[onno onzin]

die Procedure ist:

procedure THook.Reset(FollowJump: boolean);


if FollowJump and (Word(OldProc^) = $25FF) then begin
// This finds the correct procedure if a virtual jump has been inserted
// at the procedure address
Inc(Integer(patchPosition), 2); // skip the jump <<<<<<<<<<<<< Problem
patchPosition := pansiChar(Pointer(pointer(patchPosition)^)^);
end;