Tastaturhook mit Delphi XE2

[jaenicke]

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.