Tastenabfrage in einem laufenden Programm

[xavior]

Hatt sich schon erledigt, habs selbst rausgefunden! Wer wissen möchte wie, den zeig ich den Code:

Delphi-Quellcode:

procedure TTestprogramm.LMenue(Sender: TObject);
var State: TKeyboardState;
begin
 GetKeyboardState(State);
 If ((State[VK_F1] and 128) <> 0) = True then begin
  LListe.Show;
 end;
end;

Mit Hilfe eines Timers (Mit dem Interval von 50!), wird jede 50 Millisekunden die Tastatur abgefragt!