في Windows 9x ، في أسفل الشاشة يوجد شريط المهام ، والذي يمكن للمستخدمين تعيينه. إذا قمت بالنقر بزر الماوس الأيمن على شريط المهام وحدد الخصائص ، فيمكنك تعيينه في مربع الحوار المنبثق ، ثم كيفية التحكم في شريط المهام في البرنامج الذي قمنا بتجميعه؟
ملاحظة: استخدم وظائف FindWindow و SetWindowpos API في البرامج التالية للتحكم في إخفاء وعرض شريط مهام Windows في البرنامج.
أولاً ، قم بإنشاء مشروع جديد ، ووضع Button1 (خاصية Caption هي شريط المهام المخفي) و Button2 (خاصية Caption هي شريط المهام العرض) على النموذج الافتراضي 1 ، وتبقى الخصائص الأخرى دون تغيير ، ثم أدخل رمز البرنامج التالي:
وحدة StartBar ؛
واجهة
يستخدم Windows ، الرسائل ، sysutils ، الفئات ، الرسومات ، عناصر التحكم ، النماذج ، الحوار ، stdctrls ؛
اكتب tform1 = فئة (tform)
Button1: Tbutton ؛
Button2: Tbutton ؛
الإجراءات button1click (المرسل: tobject) ؛
الإجراءات button2click (المرسل: tobject) ؛
Formcreate الإجراء (المرسل: TOBJECT) ؛
{إعلانات خاصة}
الإعلانات العامة {الإعلانات العامة}
نهاية؛
var1: tform1 ؛
التنفيذ {sr *.dfm}
الإجراء tform1.formcreate (المرسل: tobject) ؛
يبدأ
ret: = findWindow (′ shell_traywnd ′ ، ′) ؛
نهاية؛
الإجراء tform1.button1click (المرسل: tobject) ؛
يبدأ
SetWindowPos (ret ، 0 ، 0 ، 0 ، 0 ، 0 ، SWP_HIDEWINDOW) ؛
نهاية؛
الإجراء tform1.button2click (المرسل: TOBJECT) ؛
يبدأ
setWindowPos (ret ، 0 ، 0 ، 0 ، 0 ، 0 ، SWP_ShowWindow) ؛
نهاية؛
نهاية.
يمكنك الآن تشغيله (اضغط على F9).
ملاحظة: تم تصحيح البرنامج أعلاه وتم تمريره في النسخة الصينية من Windows 98 و Delphi4.0 C/S.