procedure TForm1.Button4Click(Sender: TObject);
begin
{Разрешить кнопку "Пуск"}
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
0,
'Button',
nil),
true);
end
Пример кода на Delphi!
Чтобы суммировать, что код делает:
Он скрывает и отображает кнопку "Start" (также известную как кнопка "Pusk") изменением ее региона окна с помощью SetWindowRgn.
Он включает или отключает кнопку "Start" с помощью EnableWindow.
Вот подробное описание каждой процедуры:
Button1Click: Скрывает кнопку "Start", создавая пустой регион (CreateRectRgn) и устанавливающим его как регион окна для кнопки "Start" с помощью SetWindowRgn. Параметр true указывает, что изменение должно быть немедленным.
Button2Click: Отображает кнопку "Start", устанавливая ее регион окна в 0 (что означает отсутствие региона, эффективно делающее кнопку видимой снова).
Button3Click: Отключает кнопку "Start", устанавливающим ее состояние включения в false с помощью EnableWindow.
Button4Click: Включает кнопку "Start", устанавливающим ее состояние включения в true с помощью EnableWindow.
Теперь, касательно вашего вопроса: "Как скрыть и отключить кнопку 'Pusk'?"
Чтобы достичь этого, вы можете комбинировать эффекты скрытия и отключения кнопки. Вот обновленная версия кода:
procedureTForm1.Button5Click(Sender:TObject);begin{Скрывайте и отключайте кнопку "Start"}Rgn:=CreateRectRgn(0,0,0,0);SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil),Rgn,true);EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil),false);end;
В этом коде мы создаем пустой регион и устанавливаем его как регион окна для кнопки "Start" с помощью SetWindowRgn. Затем отключаем кнопку с помощью EnableWindow с параметром false.
Обратите внимание, что вам нужно заменить Button5Click на обработчик клика вашей желаемой кнопки.
В статье описывается, как можно спрятать и отключить кнопку 'Пуск' на ПК с помощью кода на Delphi.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.