新疆软件开发

本站首页 软件开发 成功案例 公司新闻 公司简介 客服中心 软件技术 网站建设
  您现在的位置: 新疆二域软件开发公司 >> 开发语言 >> 文章正文

一个delphi开发托盘程序的例子


                         下面的例子将向你演示 用delphi如何开发托盘的程序:
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
ShowWindow(Application.Handle, SW_RESTORE);
ShowWindow(Application.Handle, SW_HIDE);
procedure TfrmMain.SetNotifyIcon(bShow: boolean);
var
  NotifyIcon: TNotifyIconData;
begin
  NotifyIcon.cbSize := sizeof(NotifyIcon);
  NotifyIcon.Wnd := self.Handle;
  NotifyIcon.uCallbackMessage := Message_NotifyIcon;
  NotifyIcon.uID := 0;
  NotifyIcon.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
  NotifyIcon.hIcon := Application.Icon.Handle;
  NotifyIcon.szTip := ’My Tools’;
  if bShow then
    Shell_NotifyIcon(NIM_ADD, @NotifyIcon)
  else
    Shell_NotifyIcon(NIM_DELETE, @NotifyIcon);
end;
作者:未知 | 文章来源:未知 | 更新时间:2008-1-19 18:32:56

  • 上一篇文章:

  • 下一篇文章:

  • 相关文章:
    delphi实现利用arp欺骗来实现计费功能
    了解delphi过程类型/过程类型学习
    BLOB是如何使用的
    GB/Unicode/GBK之间的转换
    delphi使用技艺大全
    在桌面中嵌入窗体
    软件技术
    · 开发语言
    · Java技术
    · .Net技术
    · 数据库开发
    最新文章  
    ·搜集整理的asp.net的验证方
    ·各种FOR循环结构的整理
    ·软件项目开发中应该考虑那
    ·搜集整理的javascript sel
    ·软件开发中项目经理有那些
    ·学习如何在Lambda表达式进
    ·C++基础知识:结构体数据的
    ·C#实现短信发送程序的例子
    ·sun最近修补了一部分java的
    ·rss定制的另外一种实现方式
    ·delphi实现利用arp欺骗来实
    ·基础学习:基于WF的流程框
    ·网络编程中怎样得知一次数
    ·如何逆序输出单链表?
    ·软件开发过程中的性能设计
    关于我们 | 软件开发 | 下载试用 | 客服中心 | 联系我们 | 友情链接 | 网站地图 | 新疆电子地图 | RSS订阅
    版权所有 © 2016 新疆二域软件开发网 www.k8w.net All Rights Reserved 新ICP备14003571号
    新疆软件开发总机:0991-4842803、4811639.
    客服QQ:596589785 ;地址:新疆乌鲁木齐北京中路华联大厦A-5C 邮编:830000