Was ist denn das
Delphi-Quellcode:
InstallHook(
Handle);
if (InstallHook(
Handle) = True)
then
ShowMessage('
Hook ist drin!');
für ein Unsinn? Warum rufst du InstallHook zwei mal auf? Außerdem ist das etwas sinnfrei eine Meldung auszugeben, wenn es funktioniert hat. Sinnvoller wäre es, eine Meldung auszugeben, wenn es zu einem Fehler gekommen ist und die Fehlermeldung auszugeben, damit man weiß, warum es zu einem Fehler gekommen ist.
Delphi-Quellcode:
if not InstallHook(
Handle)
then
ShowMessage(SysErrorMessage(GetLastError));