Отлов одновременно нескольких клавиш.

[Alex Cones]

Собственно как поймать нажатие двух клавиш одновременно? Если можно, покажите два метода: через onKeyDown (или аналогичный обработчик на Events) и через апишную отловку мессаг.

[Stilet]

Интересуют CTRL ALT SHIFT c клавишей или две скажем буквенных клавиши?

[MaxNik2009]

Через KeyDown примерно так:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((ssAlt in Shift) and (Key=vk_F4)) then
  begin
    ShowMessage('Не закроешь!!!');
    Key:=0;
  end;
end;

[raxp]

через API... в своем проекте Alius:

Function WindowProc(HWND,
                    Msg,
                    wParam,
                    lParam: Longint): Longint;
 Stdcall;
 Begin
   Result := DefWindowProc(HWND, Msg, wParam, lParam);
   Case Msg Of

   WM_MOUSEMOVE: LightForButtons;
   WM_DESTROY  : ShutDown;    

   WM_KEYDOWN: begin
    if wparam = 17 then ; // CTR-
    if wparam = 16 then ; // SHIFT-
    if wparam = 37 then ; // left
    if wparam = 39 then ; // reight
    if wparam = 38 then messagebox(0, '', '', 0); // up
    if wparam = 40 then ; // down
    // ...ну и так далее, можно еще учитывать lparam

    // а вот и одновременное-
    If ((GetKeyState(VK_CONTROL) AND 128)=128) and // "CTR"
      ((GetKeyState(ord('4'))   AND 128)=128) then messagebox(0, '', '', 0) // "4"
   end;

   End;
 End;

[Alex Cones]

Мммм... А если скажем, что буквенная комбинация? Как пример можно такое привести: если в шутере нажать W - вперед, D - вправо, то W+D = диагональ...

[raxp]

дык, все так же...

If ((GetKeyState(ord('D')) AND 128)=128) and
      ((GetKeyState(ord('W'))   AND 128)=128) then messagebox(0, '', '', 0);

[Alex Cones]

Огромное спасибо!
"+" представим, что я нажал его. Проклятое ограничение...

[JTG]

GetKeyboardState будет чуть быстрее

  var keys: TKeyboardState;

  GetKeyboardState(keys);
  If (keys[ord('D')] and keys[ord('W')]) and 128 = 128 then // W+D
  If (keys[ord('D')] or  keys[ord('W')]) and 128 = 128 then // W, D, W+D