在窗体上加一个按钮，并键入以代码:

procedure TForm1.Button1Click(Sender: TObject);
var
WindowHandle : THandle;
windowclass : Array [0..20] of char;

begin
StrPCopy ( @windowclass[0] , ''Shell_TrayWnd'' ); // 第二项参数是类名
WindowHandle := FindWindow ( @windowclass[0] , nil );
ShowWindow ( WindowHandle , SW_HIDE );

// 如果任务条不存在，不要惊慌，你只需去掉下一行的注释符号，然后重新运行程序..
//ShowWindow ( WindowHandle , SW_SHOW );
{
// 也可以试一试下面的窗口类:
Shell_TrayWnd : 隐藏系统tray
Progman : 隐藏桌面上的图标和提出菜单
SystemTray_Main : 电池剩余电量表 // 你可能曾经看到过
MS_WebcheckMonitor
LoadWC
}
// 注释:本代码在deplhi 4, Windows NT workstation 4 中测试
end;