Windows 64 bit und Postmessage (Multimediatasten abfangen)

[Bomberbb]

So, nun läuft es wie gewollt. Nun wollte ich Euch aber zumindest meine Lösung noch posten.
Zum einen war das übergebene Handle falsch. Nun übergebe ich es nicht mehr, sondern setze es mit Findwindows in Installhook. Eine weiters Problem war die Zeile
(lParam=16777217) //Nur KeyDown hier wurden manche events doppelt verarbeitet. Das hab ich in
(lParam And (1 Shl 31) <>0)then //Nur KeyUp geändert und mit diesen beiden Änderungen klappt es wunderbar.

Delphi-Quellcode:

Library keyboardhook;

Uses
  Windows,
  Messages,
  Dialogs,
  SysUtils;

Var
  HookHandle                            :Cardinal=0;
  AppHandle                             :HWND;

Function KeyboardHookProc (nCode:Integer;wParam:WPARAM;lParam:LPARAM) :LRESULT; Stdcall;
Begin
  Result := CallNextHookEx (HookHandle,nCode,wParam,lParam) ;
  If (nCode<>HC_NOREMOVE) And (nCode=HC_ACTION)
    And (lParam And (1 Shl 31) <>0)then //Nur KeyUp
     if (wParam In [$B1..$B3]) //Nur Multimediatasten
     then
  Begin
    AppHandle := FindWindow ('TfrmKeyMakro',Nil) ;
    If AppHandle<>0 Then
      PostMessage (AppHandle,WM_USER+1235,wParam,lParam) ;
  End;

End;

Function InstallHook :Boolean; Stdcall;
Begin
  Result := False;
  If HookHandle=0 Then
  Begin
    HookHandle := SetWindowsHookEx (WH_KEYBOARD,
      @KeyboardHookProc,
      HInstance,
      0) ;
    AppHandle := FindWindow ('TForm1',Nil) ;
    Result := True;
  End;
End;

Function UninstallHook:Boolean; Stdcall;
Begin
  Result := UnhookWindowsHookEx (HookHandle) ;
  HookHandle := 0;
End;

Exports
  InstallHook,
  UninstallHook;
End.

Ich habe aber noch eine andere Alternative zu bieten, die ich im Netz gefunden habe. Wenn man nur eine Sondertaste mit einem Programm belegen will geht einfacher mit der registry

und zwar unter

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\AppKey

Ich hoffe, es das post hilft noch anderen.

Gruß

BBB