Понедельник, 20.08.2018
Королевство Delphi
Главное меню
Статьи
Наш опрос
Нашли свой исходник?
Всего ответов: 92
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Разные » Примеры 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;

Получить ссылку на материал

Категория: Примеры Delphi | Добавил: Барон (21.12.2011)
Просмотров: 374 | Теги: пуск | Рейтинг: 0.0/0
[ Пожертвования для сайта ] [ Пожаловаться на материал ]

Если вам помог материал сайта кликните по оплаченной рекламе размещенной в центре

Поиск
Категории раздела
Delphi.NET [3]
Kylix Delphi for Linux [9]
Советы Дельферу [6]
Хитрости в Delphi [2]
Обзор Delphi [45]
Инсталлятор [11]
Пользовательский интерфейс [18]
Примеры Delphi [93]
Функции и процедуры [16]
Разные [31]
Королевство Delphi © 2010-2018
Яндекс цитирования