Globaler API-Hook funktioniert nicht

[brechi]

richtigerweise würde nexthook so aussehen:

Delphi-Quellcode:

function FindNext(var F: TSearchRec): Integer;
asm
  nop
  nop
  nop
  nop
  nop
  add FindNextOld,5
  jmp FindNextOld
end;