AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Windows 64 bit und Postmessage (Multimediatasten abfangen)
Thema durchsuchen
Ansicht
Themen-Optionen

Windows 64 bit und Postmessage (Multimediatasten abfangen)

Ein Thema von Bomberbb · begonnen am 26. Feb 2010 · letzter Beitrag vom 1. Mär 2010
 
Bomberbb

Registriert seit: 23. Sep 2003
227 Beiträge
 
#6

Re: Windows 64 bit und Postmessage (Multimediatasten abfange

  Alt 1. Mär 2010, 13:26
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
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:47 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz