Tastaturhook mit Delphi XE2

[Daniel]

Das hat mir ja nun keine Ruhe gelassen. Wie sieht denn das nicht funktionierende Minimalbeispiel aus? Folgender Code geht, aber ich befürchte fast, dass wir auf die eine oder andere Weise aneinander vorbei reden.

Delphi-Quellcode:

program Project745;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  WinAPI.Windows,
  System.SysUtils;

var maphandle : THandle;

begin
  //maphandle:= CreateFileMapping($FFFFFFFFFFFFFFFF, nil, PAGE_READWRITE, 0, mapsize, PChar('daniel'));
  maphandle:= CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, 8192, PChar('daniel'));
  if (maphandle <> 0) then
  begin
    /// hat wohl geklappt
    WriteLn( 'aufruf erfolgreich' );
    CloseHandle( maphandle );
  end
  else
  begin
    /// hat ... so gut wie ... geklappt
    WriteLn( 'aufruf fehlgeschlagen: "' + SysErrorMessage(GetLastError) + '"' );
  end;

  ReadLn;
end.