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