Кнопка пуск

[Черничный]

Ребята, блокирую кнопку "Пуск"

EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), false);

а при нажатии на клаве меню все же выскакивает! Как быть? надо блокировать и разблокировать

[Terran]

Что бы не ставить хук на клавиатуру, на мой взгляд будет проще сделать так:

Procedure TForm1.Timer1Timer(Sender: TObject);
Var
H: HWnd;
Begin
H:=FindWindow(Nil, 'Главное меню');
If H=0 Then Exit;
Sendmessage(H, WM_CLOSE, 0,0);
End;

[Stilet]

а при нажатии на клаве меню все же выскакивает!

А ты попробуй зарегистрируй HotKey на WinKey