Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

27th
Сен

Программно открыть и закрыть пуск

Posted by micher under Delphi

Как программно открыть и закрыть пуск?

BoT_T



procedure TForm1.Button1Click(Sender: TObject);  // закрываем пуск

var

h:Hwnd;

begin

h:=FindWindow('SHELL_TRAYWND',nil);

h:=findwindowex(h,0,'Button',nil);

SendMessage(h,WM_LBUTTONup,0,0);

end;
procedure TForm1.Button2Click(Sender: TObject); //открываем пуск

begin

SendMessage(Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0);

end;

Пост написан при поддержке интернет-магазина Super4buY — был создан в 2010 году в поддержку портала Super4computeR.com для продажа техники Apple .

В конце лета или осенью мир должен увидеть новый iPhone 5. Ажиотаж вокруг смартфона, начавшийся задолго до анонсирования даты его появления – признак истинного восхищения гаджетом во всем мире. Многие не могут дождаться того дня, когда появится возможность iphone 5 купить в москве, и надеются, что одновременно с американским началом продаж. Известно одно, когда бы не выпустили Apple iPhone 5, и какая бы не стояла на iPhone 5 цена, этот телефон соберет огромные очереди в первый день открытия продаж во всех магазинах.

тема на форуме от 2010 года