ใน Windows 9X ที่ด้านล่างของหน้าจอคือแถบงานซึ่งผู้ใช้สามารถตั้งค่าได้ หากคุณคลิกขวาที่แถบงานและเลือกคุณสมบัติคุณสามารถตั้งค่าในกล่องโต้ตอบป๊อปอัพแล้วจะควบคุมแถบงานในโปรแกรมที่เรารวบรวมได้อย่างไร
หมายเหตุ: ใช้ฟังก์ชั่น FindWindow และ SetWindowPos API ในโปรแกรมต่อไปนี้เพื่อควบคุมการซ่อนและแสดงแถบงาน Windows ในโปรแกรม
ขั้นแรกให้สร้างโครงการใหม่วางปุ่ม 1 (คุณสมบัติคำบรรยายภาพเป็นแถบงานที่ซ่อนอยู่) และ button2 (คุณสมบัติคำบรรยายภาพคือแถบงานแสดงผล) บน Form1 เริ่มต้นและคุณสมบัติอื่น ๆ ยังคงไม่เปลี่ยนแปลงจากนั้นป้อนรหัสโปรแกรมต่อไปนี้:
หน่วยเริ่มต้น;
ส่วนต่อประสาน
ใช้ windows, ข้อความ, sysutils, คลาส, กราฟิก, การควบคุม, รูปแบบ, กล่องโต้ตอบ, stdctrls;
พิมพ์ tform1 = คลาส (tform)
ปุ่ม 1: tbutton;
button2: tbutton;
ขั้นตอน button1click (ผู้ส่ง: tobject);
ขั้นตอน button2click (ผู้ส่ง: tobject);
โพรซีเดอร์แบบฟอร์ม (ผู้ส่ง: tobject);
ส่วนตัว {ประกาศส่วนตัว}
สาธารณะ {ประกาศสาธารณะ}
จบ;
VAR FORM1: TFORM1;
การใช้งาน {sr *.dfm}
ขั้นตอน TFORM1.FormCreate (ผู้ส่ง: TOBJECT);
เริ่ม
ret: = findwindow (′shell_traywnd′, ′);
จบ;
ขั้นตอน tform1.button1click (ผู้ส่ง: tobject);
เริ่ม
setWindowPos (ret, 0, 0, 0, 0, 0, 0, swp_hidewindow);
จบ;
ขั้นตอน tform1.button2click (ผู้ส่ง: tobject);
เริ่ม
setWindowPos (ret, 0, 0, 0, 0, 0, 0, swp_showwindow);
จบ;
จบ.
ตอนนี้คุณสามารถเรียกใช้งานได้ (กด F9)
หมายเหตุ: โปรแกรมข้างต้นถูกดีบักและส่งผ่านในเวอร์ชันภาษาจีนของ Windows 98 และ Delphi4.0 c/s