Delphi 操作“任务栏”


本文整理自网络,侵删。

 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 ioutils 单元(6): tpath(结构体)路径的提取和处理

Delphi 截图函数screenshot

Delphi 利用vclzip实现分卷压缩

Delphi xe5 android 黑屏的临时解决办法

Delphi xe版本 运行cmd命令,并取得输出字符

Delphi 建立快捷方式

Delphi sql数据库存取图片(利用流)

Delphi findfiles获取目录下所有文件

Delphi datetimetostr函数专用优化版

monthdays:给出一个月的天数

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...