Tastaturhook mit Delphi XE2

[Daniel]

Meine Herren - Finger weg von den "magic numbers", also den festen Zahlenwerten im Code. Was da erwartet wird, ist ein THandle, welches unter XE2 als NativeUInt deklariert ist und damit gemäß der Ziel-Architektur wächst oder schrumpft.

Wenn man an dieser Stelle einfach die Konstante "INVALID_HANDLE_VALUE" einsetzt, hat man einen Code, der sich für beide Architekturen übersetzen lässt, weil sich der Compiler um den korrekten Wert kümmert.