Как скрыть TaskBar?

Материал из DRKB

Как скрыть TaskBar?[править | править код]

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


Source: Взято из http://forum.sources.ru
ID: 01769



ShowWindow(FindWindow('Shell_TrayWnd', nil), sw_hide);


Source: http://delphiworld.narod.ru/
ID: 01770