Hallo ich will grad ein Programm schreiben was Tastencodes abfängt, und da wollte ich eine Case-Anweisung schreiben aner bekomm das nicht hin. Habt Ihr da eine Idee?
Hier meine IF-Anweisung zu dem Thema:
Delphi-Quellcode:
function Tasten2: Integer;
begin
for i:=0 to high(keys) do keys[i]:=GetAsyncKeyState(i)=0;
if keys[VK_Space]=false then result:=VK_Space else if
keys[VK_DOWN]=false then result:=VK_DOWN else if
keys[ord( 'M' )]=false then result:=ord( 'M' ) else result:=i;
end;
mfg Dangerfreak