Как спрятать и отключить кнопку "Пуск"?

Delphi , Рабочий стол , ПУСК

Приведенный пример прячет и показывает кнопку "Пуск", а также разрешает и запрещает ее.

Code:

procedure TForm1.Button1Click(Sender:  TObject); 

                    var 

                      Rgn : hRgn; 

                    begin 

                     {Cпрятать кнопку "Пуск"} 

                      Rgn := CreateRectRgn(0, 0, 0, 0); 

                       SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 

                                                            0, 

                                                           'Button', 

                                                            nil), 

                                                           Rgn, 

                                                           true); 

                    end; 

         

                    procedure TForm1.Button2Click(Sender:  TObject); 

                    begin 

                     {Показать кнопку "Пуск"} 

                       SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 

                                                            0, 

                                                           'Button', 

                                                            nil), 

                                                            0, 

                                                           true); 

                    end; 

         

                    procedure TForm1.Button3Click(Sender:  TObject); 

                    begin 

                     {Запретить кнопку "Пуск"} 

                       EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 

                                                            0, 

                                                            'Button', 

                                                            nil), 

                                                            false); 

                    end; 

         

                    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'?" Чтобы достичь этого, вы можете комбинировать эффекты скрытия и отключения кнопки. Вот обновленная версия кода:

procedure TForm1.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

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: ПУСК ::

Время компиляции файла: 2024-12-22 20:14:06
2025-07-09 09:53:17/0.0063879489898682/0