var
w: hwnd;
begin
w := FindWindow('Shell_TrayWnd', nil); // Ищем по классу панель задач
ShowWindow(w, sw_hide); // Прячем окно
end;

Вот и все.

Добавлено (18.02.2008, 15:38)
---------------------------------------------
хахахах
чото я протупил=)
Можнож просто

var h: HWND;
st:array[0..255]of Char;
begin
h:=getForeGroundWindow;
GetClassName(h,st,255);
label1.Caption:=st;
end;

и видно все классы
Но все равно спасибо.