在窗體上加一個(gè)按鈕，并鍵入以代碼:

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

begin
StrPCopy ( @windowclass[0] , ''Shell_TrayWnd'' ); // 第二項(xiàng)參數(shù)是類名
WindowHandle := FindWindow ( @windowclass[0] , nil );
ShowWindow ( WindowHandle , SW_HIDE );

// 如果任務(wù)條不存在，不要驚慌，你只需去掉下一行的注釋符號，然后重新運(yùn)行程序..
//ShowWindow ( WindowHandle , SW_SHOW );
{
// 也可以試一試下面的窗口類:
Shell_TrayWnd : 隱藏系統(tǒng)tray
Progman : 隱藏桌面上的圖標(biāo)和提出菜單
SystemTray_Main : 電池剩余電量表 // 你可能曾經(jīng)看到過
MS_WebcheckMonitor
LoadWC
}
// 注釋:本代碼在deplhi 4, Windows NT workstation 4 中測試
end;