Hallo Franz54,
wenn es sich nicht um ein Konsolenprogramm handelt, würde ich folgende Prozedur empfehlen, die ich mir dafür gebaut habe (funktioniert nur mit Windows, da die Windows-API benutzt wird):
Code: Alles auswählen
Procedure IsKey(vk.l,Alternator.b=0,hForegroundWindow.i=0) ;Alternator: 0=nichts, 1=Shift, 2=Ctrl, 4=Alt, 8=AltGR (kann mit "|" kombiniert werden; 8 muss für sich allein stehen); hForegroundWindow: WindowID des Fensters, das aktiv sein muss, damit der Tastendruck als gültig angesehen wird
protected Ergebnis.b=0,*KeyboardState,Shift.b=1,Ctrl.b=1,Alt.b=1,AltGr.b=1,fgw.b=1,korrekt.b=1
*KeyboardState=AllocateMemory(256)
GetKeyboardState_(*KeyboardState) ;128=Taste gedrückt, 0=Taste nicht gedrückt
if Alternator<>0 ;dient der Codebeschleunigung (wenn kein Alternator, keine Prüfungen)
if ((Alternator & 1)=1) and ((PeekB(*KeyboardState+#VK_SHIFT) & 128)<>128)
Shift=0
endif
if ((Alternator & 2)=2) and ((PeekB(*KeyboardState+#VK_CONTROL) & 128)<>128) or ((PeekB(*KeyboardState+#VK_RMENU) & 128)=128)
Ctrl=0
endif
if ((Alternator & 4)=4) and ((PeekB(*KeyboardState+#VK_MENU) & 128)<>128) or ((PeekB(*KeyboardState+#VK_RMENU) & 128)=128) ;Menu=Alt
Alt=0
endif
if ((Alternator & 8)=8) and ((PeekB(*KeyboardState+#VK_RMENU) & 128)<>128) ;RMenu=AltGr
AltGr=0
endif
endif
if hForegroundWindow<>0
if GetForegroundWindow_()<>hForegroundWindow
fgw=0
endif
endif
if (Shift=korrekt) and (Ctrl=korrekt) and (Alt=korrekt) and (AltGr=korrekt) and (fgw=korrekt) and ((PeekB(*KeyboardState+vk) & 128)=128)
Ergebnis=1
WindowEvent() ;sonst wird der Tastendruck nicht zurückgesetzt, wenn die Taste losgelassen wird
endif
FreeMemory(*KeyboardState)
ProcedureReturn Ergebnis
EndProcedure ;IsKey
Dann kannst Du im Hauptprogramm wie folgt abfragen:
Code: Alles auswählen
if IsKey(27)
while IsKey(27)
delay(25) ;so lange warten, bis Escape nicht mehr gedrückt wird, damit andere Programme, die ebenfalls hierauf reagieren, nicht auch geschlossen werden
wend
;Programm beenden, Dialog schließen, was auch immer
endif
Damit kann man beliebige Tasten abfragen, auch kombiniert mit Shift, Ctrl, Alt und AltGr. Auch so seltsame Sache wie: IsKey(#VK_SHIFT,2) - das fragt Shift zusammen mit Ctrl ab, ohne irgendeine andere Taste.
Gruß, Jens-Arne