SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW)

chaosbird 2002-09-12 04:15:10

从任务栏隐藏：
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW)

那么要回复用什么？
================================================================

CSDN 论坛助手 Ver 1.0 B0402提供下载。改进了很多，功能完备！

★ 浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！
★ 支持在线检测程序升级情况，可及时获得程序更新的信息。

★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。

Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]

...全文

345 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

szbug 2002-09-12

打赏
举报

回复

用GetWindowLong/GetWindowLong就可以实现的要求。

Delphi_Li 2002-09-12

打赏
举报

回复

从人任务栏隐藏因该使用
ShowWindow( Application.Handle, SW_HIDE );
显示
ShowWindow( Application.Handle, SW_SHOW );

SetWindowLong/GetWindowLong是用来设置/获取窗口样式的！！！

ZBCJackson 2002-09-12

打赏
举报

回复

同意

eulb 2002-09-12

打赏
举报

回复

你可以先用GetWindowLong取得原来的风格
然后恢复时在用SetWindowLong

inherited; if message.LParam = wm_rbuttonup then begin //用鼠标右键点击图标 getcursorpos(mousept); //获取光标位置 popupmenu1.popup(mousept.x, mousept.y); //在光标位置弹出选单 end; if message.LParam = wm_lbuttonup then begin //用鼠标左键点击图标 //显示应用程序窗口 ShowWindow(Handle, SW_SHOW); //在任务栏上显示应用程序窗口 ShowWindow(Application.handle, SW_SHOW); SetWindowLong(Application.Handle, GWL_EXSTYLE, not (GetWindowLong(Application.handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW)); end; message.Result := 0;

利用API等技巧制作的VB禁止窗体移动的源代码，进过参考

商业编程-源码-如何隐藏显示在任务栏中的对话框程序.zip

Delphi隐藏电脑桌面上的图标，隐藏任务栏及开始菜单等，当然了，隐藏后是可以用本程序重新显示的，写这个小程序只是自己的一个练习，希望通过这个小程序让自己慢慢掌握Delphi与系统之间的密切联系。

通过API实现拖动无标题栏窗体

5,930

社区成员

262,943

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章