利用Delphi实现系统状态栏图标

2016-02-19 21:28 36 1 收藏

get新技能是需要付出行动的,即使看得再多也还是要动手试一试。今天图老师小编跟大家分享的是利用Delphi实现系统状态栏图标,一起来学习了解下吧!

【 tulaoshi.com - 编程语言 】

  下面以一个具体的例子,详细介绍一下利用Delphi实现系统状态栏图标的步骤和方法。

  1.创建一个应用程序,在主窗体上增加一个TpopupMenu组件。并为该弹出选单组件增加选单项Exit,标题为“退出”。  

  2.在Uses中添加ShellAPI,因为在系统状态栏中增加图标时需调用ShellAPI中的函数Shell_NotifyIconA。该函数需要两个参数,其中一个是TnotifyIconDataA结构,需在主窗体中增加TnotifyIconDataA类型的全局变量ntida。  

  3.定义消息mousemsg,并编写主窗体的mousemessage消息处理函数,此函数说明在图标上用鼠标左键单击时,会打开应用程序窗口;用鼠标右键单击时,会弹出一个选单。  

  下面给出步骤2和3的实现代码: 

  unit Unit1;
  interface
  uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Menus, shellapi;
  const
  mousemsg = wm_user + 1; //自定义消息,用于处理用户在图标上点击鼠标的事件
  iid = 100; //用户自定义数值,在TnotifyIconDataA类型全局变量ntida中使用
  type
  TForm1 = class(TForm)
  ......
  private
  //自定义消息处理函数,处理鼠标点击图标事件
  procedure mousemessage(var message: tmessage); message mousemsg;
  public
  { Public declarations }
  end;
  var
  Form1: TForm1;
  ntida: TNotifyIcondataA;
  //用于增加和删除系统状态图标
  implementation
  {$R .DFM}
  procedure TForm1.mousemessage(var message: tmessage);
  var
  mousept: TPoint; //鼠标点击位置
  begin
  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;
  end 

  5.编写Tform1.OnClose的代码如下:  

  procedure TForm1.FormClose(Sender:TObject; var Action: TCloseAction);
  begin
  Action := caNone; //不对窗体进行任何操作
  ShowWindow(Handle, SW_HIDE); //隐藏主窗体
  //隐藏应用程序窗口在任务栏上的显示
  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;
  procedure TForm1.FormClose(Sender:TObject; var Action: TCloseAction);
  begin
  Action := caNone; //不对窗体进行任何操作
  ShowWindow(Handle, SW_HIDE); //隐藏主窗体
  //隐藏应用程序窗口在任务栏上的显示
  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; 

  6.编写Exit代码如下:  

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/bianchengyuyan/)

  当用户点击Exit时实现完全退出应用程序。具体代码如下: 

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/bianchengyuyan/)

  procedure TForm1.ExitClick(Sender:TObject);
  begin
  //为ntida赋值,指定各项参数
  ntida.cbSize := sizeof(tnotifyicondataa);
  ntida.wnd := handle;
  ntida.uID := iid;
  ntida.uFlags := nif_icon + nif_tip + nif_message;
  ntida.uCallbackMessage := mousemsg;
  ntida.hIcon := Application.Icon.handle;
  ntida.szTip := 'Icon';
  shell_notifyicona(NIM_DELETE, @ntida);
  //删除已有的应用程序图标
  Application.Terminate;
  //中断应用程序运行,退出应用程序
  end  

  通过以上步骤,我们即可用Delphi轻松实现系统状态栏图标。

来源:https://www.tulaoshi.com/n/20160219/1626245.html

延伸阅读
C++ Q&A 专栏... 原著:Paul DiLascia 翻译:lowiq 原文出处:MSDN Magazine December 2001(C++ Q&A) 原代码下载:CQA0112.exe (52KB) 停止屏幕保护 侦测屏幕的分辨率 ...
手机qq怎么关闭状态栏   1、打开手机QQ,在主界面右滑呼出菜单选项,在页面最左下角找到设置选项 2、在诸多设置选项中,浏览到辅助功能,点击进入 3、在辅助功能设置中,其中有一项是系统通知栏显示QQ图标,我们将使能开关关闭,这样在手机通知栏就不在显示QQ图标了
爱今天怎么关闭状态栏   经常看到爱今天出现在爱今天?很多小伙伴都不喜欢?不喜欢的话可以关闭哦,那么怎么关闭状态栏呢?现在小编就教大家爱今天关闭状态栏教程。 1)点击打开,点击右上角的; 2)点击下方的,然后点击下方旁边的即可。
如何在状态栏中实现进度指示器控制 编译/NorthTibet 下载例子源代码     我最近作了一个C++/MFC程序,这个程序有时要加载大容量文件,为了让文件加载过程不至于太单调,我想在UI中用进度指示器显示文件的加载过程,而且我想在程序的状态栏中使用这个指示器控制。经过一番研...
标签: Android
怎么去除安卓5.0状态栏信号图标感叹号   安卓5.0信号、WiFi感叹号问题解决有不止一种方法。如果你没有ROOT,可以按照下面的步骤解决。 解决安卓5.0网络感叹号方法一(无需root): 1 开机后连接WiFi; 2 开启设置,进入用户菜单,创建新用户; 3 系统提示需要网络连接,一直点下一步,让手机连接网络; 4 当...

经验教程

432

收藏

40
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部