Hook führt zu System Exception

[s.h.a.r.k]

Ich habe noch eine kleine Optimierung, die eine Compiler-Warnung betrifft, die ich bisher leider übersehen hatte. Das Problem war, dass der Wert in der Zeile PLongInt(Result)^ := $B952515A; größer als der maximale LongInt-Wert von $7FFFFFFF ist und somit eine Warnung des Compilers ausgegeben wurde, völlig zurecht will ich meinen. Habe nun anstatt PLongInt nach PLongWord gecastet und schon war die Warnung weg. Hier der korrigierte Code:

Delphi-Quellcode:

function MakeProcInstance(const M: TMethod): Pointer;
begin
  GetMem(Result, 7 + 2 * SizeOf(Pointer));
  PByte(Result)^ := $B9;
  Inc(PByte(Result));
  PPointer(Result)^ := M.Data;
  Inc(PPointer(Result));
  PLongWord(Result)^ := $B952515A;
  Inc(PLongInt(Result));
  PPointer(Result)^ := M.Code;
  Inc(PPointer(Result));
  PByte(Result)^ := $FF;
  Inc(PByte(Result));
  PByte(Result)^ := $E1;
  Dec(PByte(Result), 6 + 2 * SizeOf(Pointer));
end;