Tasten abfragen

[turboPASCAL]

Tasten immer abfangen:

Delphi-Quellcode:

unit Unit1;

...

implementation

{$R *.dfm}

function KeyPressed: Integer;
var
   i : Integer;
   buf : TKeyboardState;
begin
   Result:=-1;
   if GetKeyboardState(buf) then
   begin
      for i:=0 to High(buf) do
      begin
         if (buf[i] and $80)<>0 then
         begin
            Result:=i;
            Exit;
         end;
      end;
   end;
end;

function IsKeyDown(vk : Integer) : Boolean;
begin
  Result:=(GetAsyncKeyState(vk)<0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if IsKeyDown(vk_Escape) then windows.beep(880,20);

  case KeyPressed of
    vk_Space: windows.beep(440,20);
    // ...
    // ...
  end;
end;

end.