SetKeyboardState

[Zeraim]

В общем пробую такой код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  abKeyState: array [0..255] of byte;
  kbd : TKeyboardState;
begin
  GetKeyboardState(kbd);
  move(kbd,abKeyState,256);
  abKeyState[VK_SHIFT] := $0;
  move(abKeyState[0],kbd,256);
  SetKeyboardState(kbd);
end;

И в программке в эдите шифт больше не работает 8) Но проблема в том что другие клавиши забить я не могу К примеру чтобы перестала работать кнопка G, поидее, надо использовать Ord('G') но увы не срабатывает. Может подскажите что да как?

Вообще хочу потом попробовать внедрить сей код в поток приложения и тем самым запретить одну из клавиш. Но похоже это работает только на шифт =\\ Попробовал VK_TAB, между контралами на форме переключается без проблем.

[mihali4]

Смысл-то сего извращения в чем ?
Чего вы хотите добиться ?
Потому как объяснение

И в программке в эдите шифт больше не работает 8) Но проблема в том что другие клавиши забить я не могу К примеру чтобы перестала работать кнопка G, поидее, надо использовать Ord('G') но увы не срабатывает.

кроме тумана, ничего более не напускает...