• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

【转】Delphi在任务栏隐藏程序图标

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

Delphi 在任务栏隐藏程序图标

原文:https://www.cnblogs.com/findumars/p/4740482.html

 

方法一:
1、修改工程文件中的“Application.MainFormOnTaskbar := True;”为“Application.MainFormOnTaskbar := False;”
2、在主窗体的 OnShow 事件中写下:ShowWindow(Application.Handle, SW_HIDE);

方法二:
改变窗体样式 SetWindowLong(Self.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

----------------------------------------------------------------------------------------

//本程序在任务栏中不显示MSTaskListWClass
procedure TForm1.FormShow(Sender: TObject);
begin
  ShowWindow(Application.handle,SW_HIDE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);//隐藏任务栏中的图标
  SetWindowLong(Application.Handle, GWL_EXSTYLE,
            GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
end;
 
ShowWindow(FindWindow('Form2'),SW_HIDE);//隐藏窗体
ShowWindow(Form2.Handle,SW_HIDE);//隐藏窗体
ShowWindow(Self.Handle,SW_HIDE);//隐藏窗体

ShowWindow(FindWindow('Form2'),SW_NORMAL);//显示窗体
ShowWindow(Form2.Handle,SW_NORMAL);//显示窗体
ShowWindow(Self.Handle,SW_NORMAL);//显示窗体

ShowWindow(Application.Handle,SW_HIDE);//隐藏任务栏中的图标 {这一句在FormCreate 不能显示出效果的}
ShowWindow(Application.Handle,SW_NORMAL);//显示任务栏中的图标
setwindowpos(application.handle,hwnd_top,0,0,0,0,swp_hidewindow);//不显示在系统栏

参考:http://www.cnblogs.com/xe2011/archive/2012/06/02/2531604.html

 
 
 

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi导出数据至Excel的7种方法【转】发布时间:2022-07-18
下一篇:
Delphi正则表达式之TPerlRegEx类的属性与方法(4):Replace发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap