X xyjflydream Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-23 #3 怎么操作！我是要在运行这用Delphi做的一个小屏保程序时，任务栏自动隐藏掉啊！！
W WUSUBAR Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-23 #4 不好意思借宝地一用: 本人因临时改变计划 先将北京去乌鲁木齐T69的卧铺票两张卖出 时间是25号晚上7:24有意者请电话联系:13366991345 数量有限欲购者从速!!
R royal1442 Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-23 #5 procedure TForm1.Button1Click(Sender: TObject); var wndHandle: THandle; //用于存储指定窗口的句柄 wndClass: array[0..50] of Char; //用于存储类名 begin strPCopy(@wndClass[0], 'Shell_TrayWnd'); //获取任务栏类名 wndHandle := FindWindow(@wndClass[0],nil); //获取任务栏窗口的句柄 ShowWindow(wndHandle, SW_Hide); //隐藏Windows任务栏 end;
procedure TForm1.Button1Click(Sender: TObject); var wndHandle: THandle; //用于存储指定窗口的句柄 wndClass: array[0..50] of Char; //用于存储类名 begin strPCopy(@wndClass[0], 'Shell_TrayWnd'); //获取任务栏类名 wndHandle := FindWindow(@wndClass[0],nil); //获取任务栏窗口的句柄 ShowWindow(wndHandle, SW_Hide); //隐藏Windows任务栏 end;
X xyjflydream Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-23 #6 royal1442 不好意思，我没有说清楚问题，我要的效果不是用一个按钮来实现任务栏的隐藏，而是当屏保程序运行时，它自动隐藏掉而且任务栏那里不会出现一条桌面背景。 还有一个问题想问一下，我刚开始学Delphi，很多问题都不懂，我想问一下，你那些代码都是怎么来的，是你凭经验记的还是有什么更好的学习方法学的。
royal1442 不好意思，我没有说清楚问题，我要的效果不是用一个按钮来实现任务栏的隐藏，而是当屏保程序运行时，它自动隐藏掉而且任务栏那里不会出现一条桌面背景。 还有一个问题想问一下，我刚开始学Delphi，很多问题都不懂，我想问一下，你那些代码都是怎么来的，是你凭经验记的还是有什么更好的学习方法学的。
Z zhlfdm Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-23 #7 procedure TForm2.Button1Click(Sender: TObject); begin ShowWindow(Application.Handle, SW_HIDE); SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW); end;
procedure TForm2.Button1Click(Sender: TObject); begin ShowWindow(Application.Handle, SW_HIDE); SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW); end;
R royal1442 Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-23 #8 你可以在窗体创建事件中添加上述的事情，然后在窗体的释放事件中添加如下事件，显示任务栏（如果必要的话）： var wndHandle: THandle; wndClass: array[0..50] of Char; begin strPCopy(@wndClass[0], 'Shell_TrayWnd'); wndHandle := FindWindow(@wndClass[0],nil); ShowWindow(wndHandle, SW_SHOW); //显示Windows的任务栏 end; 别人是怎么做的，我不知道的；我一般都是自己写代码，或者到网上找代码！像类似的代码网上多的是！呵呵
你可以在窗体创建事件中添加上述的事情，然后在窗体的释放事件中添加如下事件，显示任务栏（如果必要的话）： var wndHandle: THandle; wndClass: array[0..50] of Char; begin strPCopy(@wndClass[0], 'Shell_TrayWnd'); wndHandle := FindWindow(@wndClass[0],nil); ShowWindow(wndHandle, SW_SHOW); //显示Windows的任务栏 end; 别人是怎么做的，我不知道的；我一般都是自己写代码，或者到网上找代码！像类似的代码网上多的是！呵呵
X xyjflydream Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-23 #9 你有MSN号吗！以后还有问题能再问你吗！！
X xyjflydream Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-23 #11 可以了，在主窗体创建的时候，就加载了代码，隐藏了任务栏，主窗体关闭的时候任务栏就恢复了，真的很不错，不过，就是有一点，当任务栏隐藏时，有一条桌面背景！还有，就是你写的那些代码，为什么我有的我看不明白呀！
可以了，在主窗体创建的时候，就加载了代码，隐藏了任务栏，主窗体关闭的时候任务栏就恢复了，真的很不错，不过，就是有一点，当任务栏隐藏时，有一条桌面背景！还有，就是你写的那些代码，为什么我有的我看不明白呀！
X xyjflydream Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-23 #12 royal1442， 我还可以问你一个问题吗！！怎么禁用Alt+Del+Ctrl调用任务管理器，也就是禁用别人用任务管理器把我的Delphi程序给停掉了！！ 谢谢！
