Tastaturhook mit Delphi XE2

**kuba**

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