Вопросы и ответы

Дата: 2001-01-06 00:00:00

Как из программы убрать(скрыть) таскбар, а после завершения программы снова его восстановить?


»»» oksana - oksana@wtgres.pssr.ru (01.11.00 05:39)

//Спрятать
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;

С уважением, Оксана

-= Из конференции сайта MASTERS OF DELPHI (http://delphi.mastak.com) =-
Наверх