Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
KANSoftWare

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

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!

Чтобы суммировать, что код делает:

  1. Он скрывает и отображает кнопку "Start" (также известную как кнопка "Pusk") изменением ее региона окна с помощью SetWindowRgn.
  2. Он включает или отключает кнопку "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




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


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


реклама


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-12-22 20:14:06
2025-07-02 06:44:22/0.0061888694763184/0