IsPressed - Maus -/ Tastendrücke global abfragen ohne hooks

[eagle616]

Hi

Ich wollte neulich mit meinem Programm abfragen, ob die linke Maustaste gedrückt wurde.
Nach etlichen Versuchen mit hooks, die 1. komplieziert waren und 2. nicht funktioniert haben habe ich eine Funktion in der user32.dll gefunden, die alles hat was ich brauchte, wenn man die Rückgabewerte richtig behandelt.
Hier will ich diese Funktion nun mal Vorführen, füe die denen es auch zu blöd, zu kompliziert und zu schreibintensiv ist Hooks zu verwenden.

Zuerst die Unit für die DLL:

Delphi-Quellcode:

unit DLLLoadUnit;

interface

function GetAsyncKeyState(key : Cardinal) : integer;

implementation

function GetAsyncKeyState(key : Cardinal) : integer;
external 'user32.dll';

end.

Und jetzt die Funktion zum Aufrufen und Verarbeiten des Results:

Delphi-Quellcode:

function IsPressed(key : Cardinal) : integer ;
var DLLResult: integer;
begin
  Result := 0;
  DLLResult := GetAsyncKeyState(key);
  If DLLResult And $8000 = $8000 Then Result := 1;
end;

In einer While Schleife beispielsweise kann man nun abfragen ob die linke Maustaste (VK_LBUTTON) gedrückt wurde.
Als Parameter können Virtual-Key Codes verwendet werden.
Der Klick oder Tastendruck wird trotzdem an der Stelle ausgeführt und nicht etwa verhindert.

Ich hoffe ich konnte jemandem helfen.

mfg
eagle