Tastaturhook mit Delphi XE2

[kuba]

Zitat von 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.

Super !! Vielen Dank, funktioniert einwandfrei

KUBA