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

[toms]

Wozu die DLLLoadUni? GetAsyncKeyState ist doch schon in Windows.pas deklariert.

[eagle616]

K das wusste ich nicht aber das ist ja auch nicht das wichtigste

[toms]

Zitat:

Zitat von eagle616

Zuerst die Unit für die DLL:

Was meinst du damit? Warum für die DLL?

[eagle616]

Um die DLL zu laden. Ich mach das immer in extra-Units

[igel457]

Die IsPressed Funktion lässt sich auch um einiges verkürzen:

Delphi-Quellcode:

function IsPressed(key : Cardinal) : boolean;
begin
  result := (GetAsyncKeyState(key) and $8000) = $8000;
end;

[Satty67]

und was ist der Unterschied zu

Delphi-Quellcode:

uses
  Windows;

[...]

function IsPressed(Key : Integer) : ShortInt;
begin
  Result := GetAsyncKeyState(Key);
end;

Gibt doch auch 1 (oder True) aus, wenn entsprechende Taste gedrückt wird. Wie schon gesagt wurde, ist die Dll-Funktion ja schon in Delphi's Unit Windows importiert :gruebel:

[eagle616]

Das gibt aber auch dann 1 aus, wenn die Taste zwischen dem letzten Aufruf und diesem Aufruf gedrückt wurde.
Es gibt alse auch 1 aus wenn die funktion durch einen Buttonklick aufgerufen wurde