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