Ich habe nur kurz reingeschaut, ich probiere es noch aus. Du hast ein Problem in CreateMMF. Deshalb wird der Hook gar nicht erst versucht zu setzen
Delphi-Quellcode:
Result := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, Size, PChar(Name));
//
Der erste Parameter ist falsch. Korrekt:
Delphi-Quellcode:
Result := CreateFileMapping($FFFFFFFFFFFFFFFF, nil, PAGE_READWRITE, 0, Size, PChar(Name));
//
// EDIT:
Dann funktioniert das Programm auch mit 64-Bit kompiliert vollkommen korrekt.
