AI 助理
备案控制台
开发者社区 开发与运维 文章 正文

Inno Setup 系统托盘图标插件 TrayIconCtrl V1.5

2013-08-02 1423
版权
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《 阿里云开发者社区用户服务协议》和 《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写 侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介： 原文 http://restools.hanzify.org/article.asp?id=93 V1.5 修正在某些 Windows 平台上(例如 Windows XP SP3)不能正常运行的问题。

原文 http://restools.hanzify.org/article.asp?id=93



V1.5 修正在某些 Windows 平台上(例如 Windows XP SP3)不能正常运行的问题。

引用来自 trayiconctrl.iss,2009-10-16 21:06:53  引用来自 trayiconctrl.iss,2009-10-16 21:06:53
; -- trayiconctrl.iss --
; restools
; http://restools.hanzify.org
; TrayIconCtrl.dll 为一个用于 Inno Setup 的 15.5 KB 的 托盘图标插件.
; 这个托盘图标插件拥有目前 windows 系统托盘图标拥有的一切特性.
; 可以说你们看见过的,没看见过的托盘图标效果在这里都已经展现了出来
; 这是我目前所做的最复杂的一个插件, 希望大家喜欢

[Files]
Source: "plugin\trayiconctrl.dll"; Flags: dontcopy

[code]
const
  NIIF_NONE = 0;
  NIIF_INFO = $1;
  NIIF_WARNING = $2;
  NIIF_ERROR = $3;

type
// 如果你想传递更多的图标给插件，可以增加更多的 Icon 成员。
  TIconList = record
    Icon1: UINT;
    Icon2: UINT;
    Icon3: UINT;
    Icon4: UINT;
    // Icon5, Icon6 etc.
    // More...
  end;
  
// 回调函数参数格式声明
  TMenuItemClickProc = procedure(MenuIndex: Integer);
  TMenuPopupProc = procedure(PopMenu: LongWord; var bShow: Boolean);
  TTrayIconMsgFunc = function(wParam, lParam: LongWord): Boolean;

// 初始化 TrayIcon 插件
function InitTrayIconCtrl(MainForm_Handle, WizardForm_Handle: THandle; uCallbackMessage: UINT;
     szToolTip: String; icon: UINT; bHidden: BOOL; ShowTaskbarAppBtn: BOOL; MenuItems: String;
     DefaultMnuIndex: Integer; MenuItemOnClickCallBack: TMenuItemClickProc;
     MenuOnPopupCallBack: TMenuPopupProc; TrayIconMsgCallBack: TTrayIconMsgFunc): Boolean;
#ifdef UNICODE
     external 'InitTrayIconCtrlW@files:trayiconctrl.dll stdcall';
#else
     external 'InitTrayIconCtrlA@files:trayiconctrl.dll stdcall';
#endif
// MainForm_Handle : MainForm.Handle
// WizardForm_Handle : WizardForm.Handle
// uCallbackMessage : 消息标志
// szToolTip : TrayIcon 的 ToolTip 提示, win9x: 64 字符限制, win2000 以上: 128 字符限制
// icon : 显示的 Icon 的句柄. 如果设为 0 的时候默认使用安装程序的图标
// bHidden : 是否立即显示 TrayIcon, 不需要由 ShowIcon 来显示
// ShowTaskbarAppBtn : 是否显示安装程序在任务栏中的按钮
// MenuItems : 所有菜单项的 Caption, 用 ";" 分隔, 如果要显示 ";" 用 "#3B" 代替, 设置为空字符串将会禁止菜单显示, 同时菜单回调函数也被忽略
// DefaultMnuIndex : 默认菜单项, 当默认菜单项不是 -1 的时候, 双击 TrayIcon 的时候事件由用户设计，实际上就是双击的时候执行 MenuItemOnClickCallBack 某个指定的菜单单击事件
// MenuItemOnClickCallBack : TrayIcon 右键菜单点击事件控制
// MenuOnPopupCallBack : TrayIcon 右键菜单弹出前触发的回调事件
// TrayIconMsgCallBack : 自定义消息事件，可以实现更丰富的控制

// 卸载 TrayIcon 插件
function UninitTrayIconCtrl(): Boolean; external 'UninitTrayIconCtrl@files:trayiconctrl.dll stdcall';

// 隐藏 托盘图标
function HideTrayIcon(): Boolean; external 'HideTrayIcon@files:trayiconctrl.dll stdcall';

// 显示 托盘图标
function ShowTrayIcon(): Boolean; external 'ShowTrayIcon@files:trayiconctrl.dll stdcall';

// 为显示动态图标而为插件添加一组 图标 列。
function SetIconList(pHIconList: TIconList; nNumIcons: UINT): Boolean; external'SetIconList@files:trayiconctrl.dll stdcall';
// pHIconList : 图标组
// nNumIcons : 要添加多少个图标
     
// 显示动态图标动画
function AnimateTrayIcon(nDelayMilliSeconds: UINT; nNumSeconds: Integer): Boolean;
     external 'AnimateTrayIcon@files:trayiconctrl.dll stdcall';
// nDelayMilliSeconds : 每个图标显示间隔时间, 这将影响动态速度
// nNumSeconds : 循环显示时间(秒数), 当这里设置为 -1 时, 将会无限时间循环

// 停止动态图标动画
function StopAnimation(): Boolean; external 'StopAnimation@files:trayiconctrl.dll stdcall';

// 把 WizardForm 最小化到托盘图标, 或者还原出现
function ToggleWizardVisible(): Boolean; external 'ToggleWizardVisible@files:trayiconctrl.dll stdcall';

// 显示漫画型气泡提示, 这个函数只能对 Windows 2000 以上系统有作用
function ShowBalloon(szText, szTitle: String; dwIcon: DWORD; uTimeout: UINT; bWaitforPreMsg: Boolean): Boolean; 
#ifdef UNICODE
     external 'ShowBalloonW@files:trayiconctrl.dll stdcall';
#else
     external 'ShowBalloonA@files:trayiconctrl.dll stdcall';
#endif
// szText : 提示信息, 256 字符限制
// szTitle : 提示信息标题, 64 字符限制
// dwIcon : 提示信息中带有的图标
//    NIIF_NONE = 0x00000000;     无图标
//    NIIF_INFO = 0x00000001;     信息图标
//    NIIF_WARNING = 0x00000002;  警告图标
//    NIIF_ERROR = 0x00000003;    错误图标
// uTimeout : 停留的时间 范围: 10 ~ 30 秒. 如果无任何鼠标动作时, 系统自动维持 60 秒
// bWaitforPreMsg : 在 Win2000 中, 默认是要前一个消息消失后才会显示后一个消息, 这里设置为 False 的时候就直接替换前一个消息

// 隐藏漫画型气泡提示, 这个函数只能对 Windows 2000 以上系统有作用
function HideBalloon(): Boolean; external 'HideBalloon@files:trayiconctrl.dll stdcall';

// WizardForm 是否已被最小化到系统托盘区
function WizardFormInTray(): Boolean; external 'WizardFormInTray@files:trayiconctrl.dll stdcall';

// 重新设定托盘图标插件的提示标签和图标
function SetTrayIcon(szToolTip: String; icon: UINT): Boolean;
#ifdef UNICODE
     external 'SetTrayIconW@files:trayiconctrl.dll stdcall';
#else
     external 'SetTrayIconA@files:trayiconctrl.dll stdcall';
#endif


点击下面连接下载例子。
http://restools.hanzify.org/inno/trayiconctrl/IS_TrayIconCtrl_V1.5.zip

文章标签：
Windows
杰克.陈
目录
相关文章
杰克.陈
|
容器
Inno Setup GIF 显示插件 GIFCtrl (V2.1 版本)
原文 http://restools.hanzify.org/article.asp?id=79  引用来自 test.iss ; -- test.iss --; restools; http://restools.hanzify.org; gifctrl.dll 为一个用于 Inno Setup 的 13 KB 的 gif 显示插件，同样可以显示 BMP 和 JPEG。
杰克.陈
1501 0
yantuguiguziPGJ
|
3月前
inno setup打包软件学习
如何使用Inno Setup打包软件，包括打包结果的展示、示例打包脚本的提供、常见错误的解决方法，以及参考资料的链接。文中详细解释了解决“另一个程序正在使用此文件”和“桌面图标无法修改”等问题的方法，以及如何正确设置打包脚本中的文件路径和图标。
yantuguiguziPGJ
122 0
inno setup打包软件学习
杰克.陈
|
Windows
Inno Setup 插件 CallbackCtrl V1.1 (回调函数插件)
原文 http://restools.hanzify.org/article.asp?id=101 VC 重现 InnoCallback 的功能。Version 1.1修正在某些 Windows 平台(例如: Windows XP SP3)出现不能正常运行的问题。
杰克.陈
1513 0
科技探索者
Inno Setup安装服务的代码
科技探索者
2046 0
技术小甜
|
Windows
用Inno Setup来解决.NetFramework安装问题
技术小甜
1563 0
技术小甜
Inno Setup 基本视频教程
技术小甜
1830 0
科技小能手
|
Windows C++ 编译器
快速打包你的应用程序——Inno Setup
科技小能手
1458 0
杰克.陈
一个比较完整的Inno Setup 安装脚本
原文:一个比较完整的Inno Setup 安装脚本 增加了对ini文件设置的功能，一个安装包常用的功能都具备了。 [Setup]; 注: AppId的值为单独标识该应用程序。; 不要为其他安装程序使用相同的AppId值。
杰克.陈
1636 0
杰克.陈
Inno setup定制安装界面
原文:Inno setup定制安装界面 Innosetup功能很强大，可以通过它提供的Wizard接口来定制界面，但我对PASCAL语言不熟悉，也不清楚通过那种接口可改动的范围有多大，最后做出来的效果是否好，所以选择了通过一个DLL来实现我的界面。
杰克.陈
2426 0
杰克.陈
|
C语言
Inno setup中定制安装路径
原文:Inno setup中定制安装路径 我的程序修改了安装界面，所以我的界面中提供了更改安装路径的方法。 用户修改后的路径会被传回inno setup脚本，脚本中需要做的事情如下： 1，写一个函数，来返回新的安装路径，如： function MyDestDir(SubDir:String):...
杰克.陈
1857 0

热门文章

最新文章

  • 1
    《Stata统计分析与应用（第2版）》一3.4 图形的保存、合并及修改
  • 2
    Maven 3.6.3 的下载、安装、配置、检测（详细讲解）
  • 3
    基于区块链的机器学习模型创建方案
  • 4
    WPF listview item mouse enter/over popup
  • 5
    DevExpress 10.2.4系列-ASPxListBox根据列值不同设置不同图标
  • 6
    [Spring]支持注解的Spring调度器
  • 7
    红帽7.4新增的安全特性
  • 8
    hdu 1800 Flying to the Mars
  • 9
    研究 flex 4 开发后台管理项目（1）
  • 10
    Error: XML response that was returned...
  • 1
    《docker高级篇（大厂进阶）：2.DockerFile解析》包括：是什么、DockerFile构建过程解析、DockerFile常用保留字指令、案例、小总结
    115
  • 2
    《Java 人工智能开发：Eclipse 与 IntelliJ IDEA 双雄助力》
    46
  • 3
    《Java 在开源 AI 框架中的中流砥柱角色》
    34
  • 4
    《Java 与大数据框架：AI 数据预处理的强力联盟》
    39
  • 5
    《Java 优化秘籍：计算密集型 AI 任务加速指南》
    35
  • 6
    《Java 与 OpenAI 协同：开启智能编程新范式》
    30
  • 7
    uniapp开发鸿蒙，是前端新出路吗？
    30
  • 8
    鸿蒙(HarmonyOS)原生AI能力之文本识别
    39
  • 9
    鸿蒙开发之PixelMap介绍与实现图片变换
    34
  • 10
    鸿蒙(HarmonyOS)开发之无须申请权限写入图片到相册
    40

    • 相关电子书

    更多
  • 低代码开发师（初级）实战教程
  • 冬季实战营第三期：MySQL数据库进阶实战
  • 阿里巴巴DevOps 最佳实践手册
    • 下一篇
    【案例实战】SpringBoot整合阿里云文件上传OSS