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

Опубиковано: 10.06.2008 г., автор: , просмотров: 27614

Уроки програмирования на языке Delphi.

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

До встречи www.delphiexpert.ru



Похожие материалы

Последние из рубрики

That's a sharp way o 07 Окт 2014 в 06:11 #
That's a sharp way of thninkig about it.
Вадя 15 Июн 2014 в 17:11 #
Кинь код под 7-ку
ххххххххххх 27 Май 2013 в 00:00 #
хххххххххххххххх
Айсана 19 Дек 2012 в 00:00 #
не поняла???
Неизвестный 08 Дек 2011 в 00:00 #
На семерке не пашет ни одна функция!

ОтменитьДобавить комментарий