隐藏开始按钮:
var
rgn:hrgn;
Rgn := CreateRectRgn(0, 0, 0, 0);
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),Rgn, true);
显示开始按钮:
{Turn the start button back on}
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),0,true);
禁止开始按钮:
{Disable the start button}
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0, 'Button', nil),false);
允许开始按钮:
{Enable the start button}
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),true);
var
rgn:hrgn;
Rgn := CreateRectRgn(0, 0, 0, 0);
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),Rgn, true);
显示开始按钮:
{Turn the start button back on}
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),0,true);
禁止开始按钮:
{Disable the start button}
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0, 'Button', nil),false);
允许开始按钮:
{Enable the start button}
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),true);
解决方案 »
- 多线程求救
- 在delphi中定义了一个TOleEnum类型,但编译时提示"Undclared identifier: 'TOleEnum'",这是怎么回事?
- 高速公路啊高速公路
- 有谁装过crystal report 9.2
- 怎么能把variant变量里的内容放到流里去。
- 指针我明白是什么东西,但是我在Delphi工程中根本没使用过指针.请教下面的问题!谢谢!
- 请问哪里有用Delphi编的考试系统的源码
- 关于paradox7的index和排序
- 关于ADOConnection连接多个数据库的问题?(在线等待)急!急!
- 用了一个EDit来输入某个查找信息,ADOTabel来连接数据库中的表,出了问题
- 请问斜线如何画(用控件,不是用canvas)
- 不能创建WebBrowser组件?
按PrintScreen键,然后打开画板程序,选择粘贴把桌面的图标擦除掉
然后保存为墙纸,然后把任务栏拉到下底,看不见为止,
哈哈,怎么样?开始菜单和时间都无效了吧!!!试试好用再给分!!
有疑问再联系
www.applevb.com
你们的方法都很好,不过我已经自己解决了,有兴趣的朋友可发E-Mail给我。