在Windows 9X中屏幕最下方是任務欄，用戶可以對其進行一些設置。如你在任務欄上單擊鼠標右鍵選擇屬性之后，在彈出的對話框中你就可以進行設置了，那么在我們所編的程序中如何來控制任務欄呢?方法便是：調用API函數。

　　說明：在以下程序中使用FindWindow和SetWindowPos 這兩個API函數來實現在程序中控制Windows任務欄的隱藏及顯示，函數的聲明內容都在Windows.pas文件中。

　　首先，新建工程，在默認的Form1上放上一個Button1(其caption屬性為隱藏任務欄)和Button2(其caption屬性為顯示任務欄)，其他屬性保持不變，然后輸入以下程序代碼：

　　unit STARTBAR;

　　interface

　　uses Windows，Messages，SysUtils，Classes，Graphics，Controls，Forms，Dialogs，StdCtrls;

　　type TForm1 = class(TForm)

　　Button1: TButton;

　　Button2: TButton;

　　procedure Button1Click(Sender: TObject);

　　procedure Button2Click(Sender: TObject);

　　procedure FormCreate(Sender: TObject);

　　private { Private declarations }

　　public { Public declarations }

　　end;

　　var Form1: TForm1; RET:HWND; //聲明全局變量

　　implementation{SR ＊.DFM}

　　procedure TForm1.FormCreate(Sender: TObject);

　　begin

　　RET:=FINDWINDOW(′Shell_traywnd′，′′);

　　end;

　　procedure TForm1.Button1Click(Sender: TObject);  //隱藏任務欄

　　begin

　　SETWINDOWPOS(RET，0，0，0，0，0，SWP_HIDEWINDOW);

　　end;

　　procedure TForm1.Button2Click(Sender: TObject); //顯示任務欄

　　begin

　　SETWINDOWPOS(RET，0，0，0，0，0，SWP_SHOWWINDOW);

　　end;

　　end.

　　現在你可以運行一下(按F9)，當你按BUTTON1時任務欄就被隱藏了，再按一下BUTTON2就可再次顯示任務欄。

　　注：以上程序在中文Windows 98，Delphi4.0 C/S版中調試通過。