Как спрятать панель задач?
Убрать панель задач
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;
|
