Как Спрятать Панель Задач?

[Sascha]

Как спрятать панель задач?
Убрать панель задач

procedure TForm1.Button1Click(Sender: TObject);
var
  TaskBar: HWND;
begin
   TaskBar := FindWindow( 'Shell_TrayWnd', nil );
   ShowWindow( TaskBar, SW_HIDE );
end;

Вернуть панель задач

procedure TForm1.Button2Click(Sender: TObject);
var
  TaskBar: HWND;
begin
   TaskBar := FindWindow( 'Shell_TrayWnd', nil );
   ShowWindow( TaskBar, SW_SHOW );
end;

 

[Sascha]

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

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