在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版中調試通過。