GetAsyncKeyState

[DGL-luke]

öhm... du willst den key "abfangen".

Heisst das auch "unterdrücken"?

Und im übrigen passt GetAsyncKeyState ( ja, <0 stimmt) so gar nicht zum event-driven model.... fang lieber OnKeyDown ab. falls das genau das ist, was du tust:

Delphi-Quellcode:

procedure TForm1.OnKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_S) and ((GetAsyncKeyState(VK_MENU) < 0) or (ssAlt in Shift)) then //man beachte das or!
    ShowMessage('Alt+S gedrückt!');
end;

Solls so sein? oder bist du in einem loop?

Zeig mal ein bisschem mehr Code.

@SirT: Irrelevant. <0 geht auch.