Пример работы с пуском

[~Jack~]

В этом уроке мы будем эксперементировать с кнопкой пуск, научимся включать, отключать и блокировать её. Как всегда открываем 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;