利用Delphi全面控制Windows任务栏
else?
case TCheckBox(Sender). Tag of?
0: EnableWindow(Wnd[0], True);?
1: EnableWindow(Wnd[1], True);?
2: EnableWindow(Wnd[2], True);?
3: EnableWindow(Wnd[3], True);?
4: EnableWindow(Wnd[4], True);?
end;?
end;?
(5)HideOrShow过程代码如下:?
procedure TForm1.HideOrShow(Sender:TObject);?
begin?
GetHandles;?
if TCheckBox(Sender). Checked then?
case TCheckBox(Sender). Tag of?
0: ShowWindow(Wnd[0],SWHIDE);?
1: ShowWindow(Wnd[1],SWHIDE);?
2: ShowWindow(Wnd[2],SWHIDE);?
3: ShowWindow(Wnd[3],SWHIDE);?
4: ShowWindow(Wnd[4],SWHIDE);?
end?
else?
case TCheckBox(Sender). Tag of?
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等编程工具,但应注意语法、 变量类型等不同要求。?
- 上一篇:VB访问数据库的方法及接口的比较
- 下一篇:远程访问服务