Escondendo a barra de tarefas

Var
H:hwnd;
begin
H:= findwindow(NIL,'Project1');
if (H <> 0) then
showWindow(H,sw_hide);
end;