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

　　說明：在以下程序中使用FindWindow和SetWindowPos 這兩個(gè)API函數(shù)來實(shí)現(xiàn)在程序中控制Windows任務(wù)欄的隱藏及顯示，函數(shù)的聲明內(nèi)容都在Windows.pas文件中。

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

　　unit STARTBAR;

　　interface

　　uses Windows，Messages，SysUtils，Classes，Graphics，Controls，F(xiàn)orms，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);  //隱藏任務(wù)欄

　　begin

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

　　end;

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

　　begin

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

　　end;

　　end.

　　現(xiàn)在你可以運(yùn)行一下(按F9)，當(dāng)你按BUTTON1時(shí)任務(wù)欄就被隱藏了，再按一下BUTTON2就可再次顯示任務(wù)欄。

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