Блокировка клавиш

[Vladya]

Добрый день!
Такой вопрос, как можно программно заблокировать, ну или перехватить нажатие клавиши WinKey и вместо того что бы винда открывала меню "Пуск" скажем должна развернуться моя программа?

[Chudo4258]

Сообщение от Vladya

Добрый день!
Такой вопрос, как можно программно заблокировать, ну или перехватить нажатие клавиши WinKey и вместо того что бы винда открывала меню "Пуск" скажем должна развернуться моя программа?

можно так

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=91 then label1.Caption:='нажата клавиша Win';
end;

но пуск все равно открывается.

[Stilet]

А ты попробуй хук клавиатурный поставь

[Chudo4258]

___ХУК____

[Vladya]

Сообщение от Chudo4258

можно так

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=91 then label1.Caption:='нажата клавиша Win';
end;

но пуск все равно открывается.

я так и делал но мне надо что бы пуск не показывалось...
а других вариантов кроме хука нет? Может быть можно как нить обойтись без него?

[Vladya]

ну так что никто не может мне помочь?