利用Delphi全面控制Windows任务栏

0: ShowWindow(Wnd［0］,SWShow);?

1: ShowWindow(Wnd［1］,SWShow);?

2: ShowWindow(Wnd［2］,SWShow);?

3: ShowWindow(Wnd［3］,SWShow);?

4: ShowWindow(Wnd［4］,SWShow);?

end;?

end;?

       (6)FormClose事件代码如下：//将Windows任务栏恢复到正常状态；?

procedure TForm1.FormClose(Sender:TObject; var Action: TCloseAction);?

var i:Integer;?

begin?

for i:=0 to 4 do?

begin?

EnableWindow(Wnd［i］,True);?

ShowWindow(Wnd［i］,SWShow);?

end;?

end;?

       (7)按F9运行程序。以上程序在Delphi3.0/4.0、Windows95/98简体中文版环境下调试通过。 ?

       (8)说明：本文所述方法同样适用于VB、VC、BC、C++Builder等编程工具，但应注意语法、 变量类型等不同要求。?