como esconder e mostrar a barra de tarefa do windows ( delphi )

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;