Показываем – Прячем панель задач Windows в Delphi
1) Поместим на форму две кнопки Button1 и Button2;
2) Для того чтобы спрятать панель, на OnClick первой кнопки пишем:
|
1 2 3 4 |
begin ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_HIDE); // Скрыть панель задач ShowWindow(FindWindow('Button',nil),SW_HIDE); //Скрыть кнопку end; |
Если убрать вторую строчку, то исчезнет только панель задач, а кнопка Пуск будет отображаться, можете попробовать, зрелище забавное.
3) Для того чтобы показать панель, на OnClick второй кнопки пишем:
|
1 2 3 4 |
begin ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_SHOW); // Показать панель задач ShowWindow(FindWindow('Button',nil),SW_SHOW); // Показать кнопку end; |