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.