Abfrage von Tastaturereignissen

[Dannyboy]

Delphi-Quellcode:

// Funktion gibt True zurück, wenn Taste 'VK_KEY' gedrückt wurde.

Function MyKeyRead(VK_KEY : Integer) : Boolean;
begin
  result:= failed(GetAsyncKeyState(VK_KEY));
end;


// Funktion gibt True zurück, wenn alle 3 Tasten gedrückt wurden

Function Read_3_Keys(Key1, Key2, Key3 : Integer) : Boolean;
begin
  Result:= MyKeyRead(Key1) AND MyKeyRead(Key2) AND MyKeyRead(Key3);
end;

Hinweis:

Für die virtual keys gibt es in der Unit Windows Konstanten,
wie z.b. VK_SHIFT für die Shift-Taste, etc.
Für Buchstaben nimmst Du am besten ord('U') für 'U'.
Achtung, immer GROSSE Buchstaben verwenden.

Habe hier auf der Arbeit keinen Compiler, aber so müsste das stimmen.