Карта сайта 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 и FreePascal.


Комментарии и вопросы


:: 2013-02-21 21:02:29 :: re:Как спрятать и отключить кнопку "Пуск"?

Пользователь: Fashick.

На 7 винде не работает!!


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




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



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


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Rambler's Top100
26.06.2017 06:29:36/0.0066001415252686/0