Esconde/Mostra a Barra de Tarefas

 

 

procedure EscondeTaskBar(Visible: Boolean);

 

var wndHandle : THandle;

wndClass : array[0..50] of Char;

 

begin

StrPCopy(@wndClass[0],Shell_TrayWnd);

wndHandle := FindWindow(@wndClass[0], nil);

If Visible=True Then Begin

ShowWindow(wndHandle, SW_RESTORE); {Mostra a barra de tarefas}

End Else Begin

ShowWindow(wndHandle, SW_HIDE); {Esconde a barra de tarefas}

End;

end;