Уроки програмирования на языке 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

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

• Alpha Skins -поддержка скинов в программе Delphi.
• Delphi исходники - аудио плеер
• Установка RxLib в Delphi 7. Видеоурок
• Delphi. Запрещаем второй запуск.
• Учимся добавлять программу в автозапуск.

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

• Учимся добавлять программу в автозапуск.
• Проверяем соединение с интернетом.
• Узнать стандартные папки windows