В Windows 9x в нижней части экрана находится панель задач, которую могут установить пользователи. Если вы щелкните правой кнопкой мыши панели задач и выберите свойства, вы можете установить ее в диалоговом окне всплывающего окна, то как управлять панелью задач в программе, которую мы скомпилировали?
Примечание. Используйте функции API FindWindow и SetWindowpos в следующих программах для управления укрытием и отображением панели задач Windows в программе.
Во -первых, создайте новый проект, поместите кнопку1 (Свойство подписи - скрытая панель задач) и Button2 (свойство подписи - это панель задач дисплея) на Form1 по умолчанию, а другие свойства остаются неизменными, а затем введите следующий код программы:
блок стартальс;
интерфейс
Использует Windows, сообщения, Sysutils, классы, графику, управления, формы, диалоги, STDCTRLS;
Тип tform1 = class (tform)
Баттон1: Tbutton;
Button2: Tbutton;
процедура Button1click (отправитель: tobject);
процедура Button2click (отправитель: tobject);
Процедура FormCreate (отправитель: Tobject);
Приватные {частные декларации}
публичные {публичные объявления}
конец;
var form1: 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.