如何隐藏和显示工具栏? 如题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //Showprocedure TForm1.Button2Click(Sender: TObject);var hTaskBar : THandle;begin hTaskBar := FindWindow('Shell_Traywnd',nil); ShowWindow(hTaskBar,sw_shownormal);end;// Hide.procedure TForm1.Button1Click(Sender: TObject);var hTaskBar : THandle;begin hTaskBar := FindWindow('Shell_Traywnd',nil); ShowWindow(hTaskBar,sw_hide);end; 广集各路CSDN高手为我助威!!! 关心delphi的都来看看啊!瞧瞧未来的delphi要干嘛…… 某个软件在运行结束时一定会弹出一个对话窗口,如何才能监控到这个弹出对话框并作出反应呢? delphi6中精确定位图像的打印位置 高分求dcom远程调用方式问题(请各位大虾帮忙) 为什么不好使阿? 怎样调用exe文件 关于屏幕保护程序中键盘和鼠标的响应 求数据库大虾给浓缩一下 在緩存更新中,用單據號碼作為主明細表的關聯字段,要隨時可更新單据號碼,什麼辦法最好? quickrep 保存为图片 有选择查询
procedure TForm1.Button2Click(Sender: TObject);
var
hTaskBar : THandle;
begin
hTaskBar := FindWindow('Shell_Traywnd',nil);
ShowWindow(hTaskBar,sw_shownormal);
end;
// Hide.
procedure TForm1.Button1Click(Sender: TObject);
var
hTaskBar : THandle;
begin
hTaskBar := FindWindow('Shell_Traywnd',nil);
ShowWindow(hTaskBar,sw_hide);
end;