В этом уроке мы будем эксперементировать с кнопкой пуск, научимся включать, отключать и блокировать её. Как всегда открываем Delphi создаем любой обработчик и прописываем там нужный код:
Отключаем пуск:
enablewindow(findwindowex(findwindow('shell_traywnd',nil),0,'button',nil),false);
Включаем пуск :
enablewindow(findwindowex(findwindow('shell_traywnd',nil),0,'button',nil),true);
Блокируем:
var
htaskbar, hbutton: hwnd;
o:boolean;
begin
htaskbar:= findwindow('shell_traywnd', nil);
hbutton:= getwindow(htaskbar, gw_child);
sendmessage(hbutton, wm_lbuttondown,
mk_lbutton,loword(5)+hiword(screen.height-20));
end;