Форма входа

Категории раздела

Мои файлы [12]
Полезности [15]

Поиск

Наш опрос

Оцените мой сайт
Всего ответов: 62

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0




Понедельник, 25.11.2024, 09:51
Приветствую Вас Гость | RSS

Delphiport.ucoz.com

Главная | Регистрация | Вход
Полезные советы


Главная » Файлы » Полезности

Панель задач на Windows 7 - Показываем и прячем
11.11.2011, 23:47

   Данный пример испробован на 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; 

Не знаю на сколько корректно, но работает. Если че, пишите комменты...


Категория: Полезности | Добавил: Sashok
Просмотров: 1085 | Загрузок: 0 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:

Copyright MyCorp © 2024