Delphi 操作“任务栏”

原创 2016年02月12日 13:04:18

Delphi 操作“任务栏”

    一、windows任务栏常规
    1、通常编译好的文件,执行后在任务栏中,只显示一个主窗口的“标题框(带图标)”。不管你进入那一个子窗口,只显示主窗口的“标题框”
    2、程序通过进入托盘,只一托盘区显示一个图标,任务栏中,就隐藏了。
    3、如果想一开始就取消任务栏主窗口的“标题框” ,e 可在窗口的Creat事件中,加入代码:
   (1)Delphi7
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);  //隐藏
// SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_APPWINDOW);   //显示

SetWindowLong(Self.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
SetWindowLong(self.Handle,GWL_EXSTYLE,WS_EX_APPWINDOW);

   (2)在程序的.dpr文件中create窗体前加入:
Application.ShowMainForm:=false; // 隐藏窗口
// Application.ShowMainForm:=true;  // 显示窗口

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


    二、Windows任务栏的操作
    1、隐藏Windows任务栏
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;

    2、隐藏Windows任务栏
procedure Tform1.Button2Click(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_Show);            //显示Windows任务栏
end;

Delphi 从任务栏中点击图标恢复窗体

 procedure TForm1.WMBarIcon(var Message:TMessage);var   lpData:PNotifyIconData;begin  if (Message.LP...

Delphi 在任务栏隐藏程序图标

方法一: 1、修改工程文件中的“Application.MainFormOnTaskbar := True;”为“Application.MainFormOnTaskbar := False;” 2...
  • fghydx
  • fghydx
  • 2014年01月13日 17:37
  • 1754

Delphi隐藏任务栏

Delphi中如何控制Windows任务栏的显示 ...
  • hblzq
  • hblzq
  • 2007年06月05日 09:12
  • 4699

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

如何获取任务栏(taskbar)相关信息

任务栏 taskbar 信息

delphi TWebBrowser 用法

WebBrowser1.GoHome; //到浏览器默认主页 WebBrowser1.Refresh; //刷新 WebBrowser1.GoBack; //后退 WebBrowser1.GoForw...

Application.Title在Win7下失效了?

Delphi XE会默认使用Mainform的Caption作为Application的title,就是你在任务栏上看到的标题。实际上这是为兼容Vista设计的,如果你要显示自定义的标题,需要修改项目...
  • ppayun
  • ppayun
  • 2012年08月23日 05:37
  • 4289

[delphi]窗口最大化时怎么才能不要把任务栏盖住

====================================================== 注:本文源代码点此下载 =============================...

Delphi 全面控制Windows任务栏

核心提示:使用Windows95/NT/98操作系统的用户知道:Windows正常启动后,在电脑屏幕下方出现一块 任务栏。 使用Windows95/NT/98操作系统的用户知道:Window...

Delphi 任务栏的自动隐藏与隐藏问题

用SHAppBarMessage函数控制任务栏 一、显示和隐藏任务栏             要想对任务栏进行操作,首先当然需要获得任务栏的句柄,所以首先利用FindWindow获取句柄,再操作 ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi 操作“任务栏”
举报原因:
原因补充:

(最多只允许输入30个字)