//Спрятать
procedure TForm1.Button1Click(Sender: TObject);
var
hTaskBar : THandle;
begin
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_HIDE);
end;
//Показать
procedure TForm1.Button2Click(Sender: TObject);
var
hTaskBar : THandle;
begin
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_SHOWNORMAL);
end;
Here is the translation of the Delphi code snippet into Russian:
Задача: скрыть и отобразить панель задач (системную ящик) с помощью двух кнопок на форме
Скрытие панели задач
В процедуре Button1Click, когда кликать первую кнопку:
1. FindWindow ищет окно с заголовком "Shell_TrayWnd" (класс окна панели задач).
2. Результат хранится в переменной hTaskBar.
3. ShowWindow вызывается с флагом SW_HIDE, который скрывает панель задач.
Отображение панели задач
В процедуре Button2Click, когда кликать вторую кнопку:
1. FindWindow ищет окно с заголовком "Shell_TrayWnd" (класс окна панели задач).
2. Результат хранится в переменной hTaskBar.
3. ShowWindow вызывается с флагом SW_SHOWNORMAL, который отображает панель задач.
Альтернативное решение
Если вы хотите более дельфийский подход, можно использовать компонент TaskbarList из единицы ComCtrls. Это позволяет скрыть или отобразить панель задач программно без необходимости найти и манипулировать handle окна.
uses
ComCtrls;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
TaskbarList1.Hide();
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
TaskbarList1.Show();
end;
Убедитесь, что добавили компонент TaskbarList на вашу форму и установили свойство Visible в True.
Статья описывает способ скрытия и показа TaskBar в Windows с помощью процедур Pascal, созданных на основе функции FindWindow и ShowWindow.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал