Прячем панель задач (Task Bar) Windows в Delphi

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;
Рейтинг автора
Автор статьи
Юрий
Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.
Написано статей
439
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (8 оценок, среднее: 4,88 из 5)
Загрузка...
Добавить комментарий