Escondendo a aplicação da barra de tarefas

Var
H : HWnd;
begin
H := FindWindow(Nil,'Project1');
if H <> 0 then ShowWindow(H,SW_HIDE);
end;