mit peekmessages keyboardqueue abrufen

[DGL-luke]

ich brauche GLOBAL also systemweit die letzte gedrückte taste.
das geht offenbar mit peekmessage, udn ich hab hier auhc schon viele threads gefunden, in denen der queue gelöscht oder beschribeen wird. aber wie kann ich lesen?

mein erster versuch(eigentlich der zehnte)

Delphi-Quellcode:

PeekMessage(Msg,0,WM_KEYFIRST,WM_KEYLAST,PM_NOREMOVE); 
label3.Caption:=inttostr(msg.wParam);

gibt aber unsinnige werte zurück.

wie muss es denn richtig heissen?

[DGL-luke]

*push*

für das aktuelle fenster geht es tatsächlich mit

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
var Msg:TMsg;
begin
while PeekMessage(Msg,0,WM_KEYFIRST,WM_KEYLAST,PM_REMOVE) do
keybeenpressed(msg.wParam);
end;

Allerdings eben nicht global. desktophandle(GetDesktopWindow) schient auch nicht zu helfen. gibt es einen weg, den globalen Nachrichtenqueue zu überwachen?

[negaH]

Leider wird der Queue mit PeekMessage() von "vorne nach hinten" also vom "ältesten zum neuesten" Tastaturereignis ausgelsen. Sprich mit PeekMessage() bekommt man eben nicht die aktuell zu letzt gedrückte Taste geliefert.

Gruß hagen

[Flocke]

Du kannst mit SetWindowsHookEx und WH_KEYBOARD eine Schnüffel-Prozedur (einen Hook) für Tastaturereignisse setzen und dir so die jeweils zuletzt gedrückte Taste selbst merken. Die bekommt IMHO dieselben Parameter wParam und lParam wie die entsprechenden Fenstermeldungen.

[DGL-luke]

danke! das hört sich gut an. hab jetzt diesen code:

Delphi-Quellcode:

//globale funktion
function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM)
:LRESULT; stdcall;
begin
form1.keybeenpressed(wParam);
result:=callnexthookex(hookhandle,ncode,wparam,lparam);
end;

//formcreate
procedure TForm1.FormCreate(Sender: TObject);
begin
CTI1.MinimizeToTray:=true;
CTI1.IconVisible:=true;
hookhandle:=setwindowshookex(WH_KEYBOARD,@KeyboardHookProc,0,0);
end;

//formdestroy
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnhookWindowsHookEx(hookhandle);
end;

keybeenpressed wird aber anscheinend nie aufgerufen...

[Luckie]

Wenn du die Tastatureingaben global haben willst, dann muss der Code in einer DLL liegen, die du in jeden Prozess injezierst.

[Flocke]

Zitat:

Zitat von Luckie

Wenn du die Tastatureingaben global haben willst, dann muss der Code in einer DLL liegen, die du in jeden Prozess injezierst.

Genau! Sorry, hatte ich vergessen dazu zu schreiben. Hier die entsprechende Stelle aus der Doku:

Zitat:

Zitat von ms-help://borland.bds3/winui/winui/windowsuserinterface/windowing/hooks/hookreference/hookfunctions/setwindowshookex.htm

lpfn
[in] Pointer to the hook procedure. If the dwThreadId parameter is zero or specifies the identifier of a thread created by a different process, the lpfn parameter must point to a hook procedure in a dynamic-link library (DLL). Otherwise, lpfn can point to a hook procedure in the code associated with the current process.

[DGL-luke]

richtig, hab ich auhc gemerkt, als ich einen thread fand, der sich auf eine von hagen geschribeene hook-dll bezog. hab die dann mehr oder weniger kopiert, und folgendes daraus gemacht:

Delphi-Quellcode:

library P_Hook;

uses
  Windows,
  Messages,
  sysutils;

var hookhandle:cardinal=0;
    key:integer=0;
    keynew:boolean=false;

function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM):
LRESULT; stdcall;
begin
//es ist ebenfalls möglich die Bearbeitung an eine Bedingung zu knüpfen
//it's possible to call CallNextHookEx conditional only.
  Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
  key:=wparam;
  keynew:=true;         
end;

function getLastKey:integer;
begin
if keynew then result:=key
else result:=-1;
keynew:=false;
end;


function InstallHook: Boolean; stdcall;
begin
  Result := False;
  if HookHandle = 0 then begin
//Erstmal Hook installieren
//First install the hook
    HookHandle := SetWindowsHookEx(WH_KEYBOARD, @KeyboardHookProc,
    HInstance, 0);

    Result := TRUE;
  end;
end;

function UninstallHook: Boolean; stdcall;
begin
//Hook aus der Hookchain entfernen
//Uninstall hook from hook chain
  Result := UnhookWindowsHookEx(HookHandle);
  HookHandle := 0;
end;

exports
//Installations- und Deinstallationsroutine exportieren
//Export the installation and deinstallation routine
  InstallHook,
  UninstallHook,
  getLastKey;

end.

alles in der mainformunit statisch gelinkt per "external 'sowieso'".
Wenn ich nun alles schön im formcreate initialisiere und getlastkey per timer aufrufe, geht es aber immernoch nur in der eigenen mainform....
muss ich irgendwie noch in meiner mainform loadlibrary machen und die Adresse an Installhook weitergeben oder sowas? wie ich sehe, scheint hier ja HInstance das eigenhandle der DLL zu sein, das müsste also so stimmen.

[Flocke]

Hmmm ... es kann sein, dass "HInstance" das vom Prozess ist und nicht von der DLL.
Versuch doch mal "FindHInstance(@InstallHook)".

[DGL-luke]

nein, geht auch nicht. :cry:

vielleicht hat ja hagen noch was zu sagen, nachdem es ja praktisch sein Hook ist.... *hoff*