VPF::Скрыть, Показать Панель Задач - Форум программистов

ProgrammistDelphi

Дата 23.2.2005, 14:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 19.1.2005

Репутация: нет
Всего: нет

Каким образом можно скрыть и тем же способом показать "Панель задач". Т.е., чтобы внизу ничего не было.

Alex

Дата 23.2.2005, 15:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

http://vingrad.ru/DELPHI-DLP-000651

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

~FoX~

Дата 23.2.2005, 23:11 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Код


Отключение кнопки 'Пуск'
 
 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;

--------------------

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »