Tastaturhook mit Delphi XE2

[Daniel]

Zitat von jaenicke:

[...] probiere es bitte erst einmal aus... Es hat einen Grund warum ich das so geschrieben habe... Mit INVALID_HANDLE_VALUE geht es nicht (das ist als THandle(-1) deklariert).

Ich bin schlauer, als ich aussehe Denn ich habe es probiert. Folgender Code gibt mir für 32-bit und 64-bit den jeweils korrekten Wert aus:

Delphi-Quellcode:

program Project731;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils;
begin
  try
    WriteLn( IntToHex(INVALID_HANDLE_VALUE, 16) );
    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Ich kann derzeit allerdings nicht sagen, welche Einflüsse hier noch mit hineinspielen und warum das bei Dir nicht klappt.