1.new -->application 2.在form1中加入一个tPopMenu 命名为pm1 3.uses ShellAPI; 4.定义一个常量在 const WM_TRAYMSG = WM_USER + 101; 5.在private中生命变量 NotifyIcon: TNotifyIconData; 6.声明两个消息 procedure TfrmMain.WMSysCommand(var Msg: TMessage); begin if Msg.WParam = SC_ICON the

在Delphi 7下要制作系统托盘,只能制作一个比较简单的系统托盘,因为ShellAPI文件定义的TNotifyIconData结构体是比较早的版本.定义如下: 123456789   _NOTIFYICONDATAA = record   cbSize: DWORD;   Wnd: HWND;   uID: UINT;   uFlags: UINT;   uCallbackMessage: UINT;   hIcon: HICON;   szTip: array [0..63] of Ansi

在Delphi 7下要制作系统托盘,只能制作一个比较简单的系统托盘,因为ShellAPI文件定义的TNotifyIconData结构体是比较早的版本.定义如下: 123456789   _NOTIFYICONDATAA = record   cbSize: DWORD;   Wnd: HWND;   uID: UINT;   uFlags: UINT;   uCallbackMessage: UINT;   hIcon: HICON;   szTip: array [0..63] of Ansi

TTrayIcon 的主要属性: TrayIcon.Icon指定托盘图标, 有几种用法:1.设计时选择;2.把一个 TIcon 对象给它;3.使用当前程序图标: TrayIcon1.Icon := Application.Icon;4.TrayIcon1.SetDefaultIcon; 这也是使用当前程序图标. TrayIcon.Icons 与 TrayIcon1.IconIndexTrayIcon.Icons 对应一个 TImageList, 用 TrayIcon.IconIndex 来指定使

Delphi常用系统函数总结 字符串处理函数 Unit System 函数原型 function Concat(s1 [, s2,..., sn]: string): string; 说明 与 S := S1 + S2 + S3 ...; 相同. 将字符串相加. 函数原型 function Copy(S: string; Index, Count: Integer): string;说明 S : 字符串. Indexd : 从第几位开始拷贝. Count : 总共要拷贝几位. 从母字符串拷贝至另

工具列表: 1,delphi 10.2.3 + PAServer19.0. 2,配置好一些的 PC 一台,建议至少 4 代 intel i5 + 16G + 256GSSD,低于此配置将产生拖延症. 3,VMWARE14 + Unlocker. 4,MAC 10.12.6 5,Xcode 9.2 + Command_Line_Tools_macOS_10.12_for_Xcode_9.2 6,免越狱的苹果手机一个,我的是水货 iphone6. 以上工具准备好齐全,按照网上已有教程全部安装好,其中

在QT中QSystemTrayIcon类提供了创建系统托盘程序的功能. QSystemTrayIcon类为系统托盘中的应用程序提供图标.现代操作系统通常会在桌面上提供一个称为系统托盘(system tray)或通知(notification)区域的特殊区域,其中长时间运行的应用程序可以显示图标和短消息. QSystemTrayIcon类可以在以下平台上使用: 所有受支持的Windows版本. X11的所有窗口管理器和独立托盘实现,实现了XEmbed系统托盘规范. 所有实现D-Bus的X11桌面环

delphi 10.2 支持linux, 而且官方只是支持命令行编程,目地就是做linux 服务器端的开发. 既然是做linux服务器端的开发,那么普通的命令行运行程序,然后等待开一个黑窗口的方式就 太low了(目前就有个别语言大咖,经常在Windows 上开个黑窗口,看起来非常恶心),那么如果 避免这个尴尬的问题? 其实Linux 下也有类似windows 服务的功能,Linux Daemon 就是其中的一种方式,命令行运行后 直接返回,同时在后台建立一个同样的进程.接受客户端的访问.常见的一

Delphi 10.2(Tokyo)出来一段时间了,最重要的新特性就是支持Linux的服务端. 官网有详细的介绍: 这里是主要的特性介绍:https://www.embarcadero.com/products/rad-studio/whats-new-in-10-2-tokyo 这里是详细的更新清单:http://docwiki.embarcadero.com/RADStudio/Tokyo/en/What%27s_New 我使用谷歌翻译将更新清单翻译了一下,和各位爱好者分享. 原文我就不贴出

Delphi 10.2.2 之前,可以通过 IDE视觉设置的系统注册表项 修改字体和字体大小,因为 Delphi 10.2.2 IDE增加了主题,主题包含了字体信息, 此方法失效了.对于高分辨率屏幕,当Windows 字体缩放到 125%.200%或者更高的时候,默认字体太小了.直到昨天发布的 Delphi 10.3.3 才解决这个问题. 有两种方法可以修改系统注册表: 创建一个注册表脚本文件并执行它. 使用手动修改系统注册表regedit. 方法一:创建注册表文件 1.创建一个新的文本文档,并

下载:https://maxwoods.ctfile.com/u/758954/28516301 Embarcadero.Delphi.10.2.RTM.v25.0.26309.314.Lite.v14.0 ——————————————————————————– 基本信息: 作者:lsuper联系方式:… ——————————————————————————– 版本说明: 由于 XE5 时代 Delphi 安装体积急剧膨胀(完整安装接近 10G,程序文件.安装缓存超过 20G+),按照过去的方式

使用QT来创建一个系统托盘,事实上是一件很简单的事.为什么这么说?一是因为QT文档给出了比较详细的例子,二是QT的结构比较优雅,设计风格统一.但是在动手之前,我们要从哪里下手?虽然QT文档给出了一个比较详细的例子,但由于功能较多,所以看起来比较费劲.我们在这只是抽丝剥茧,只实现系统托盘这一个功能. 首先,使用QT creator创建一个GUI工程,继承于QDialog还是QMainWindow还是QWidget都无所谓.我们以继承QMainWindow为例说明.创建完毕之后,creator将自动

前言 有些程序在关闭或最小化的时候会隐藏在系统托盘中,双击或右击会重新显示,winform实现其功能很简单,这边就简单的介绍下. 实现 在winform实现托盘使用notifyIcon控件,如果加菜单的话再结合下contextMenuStrip控件,我们看下代码: this.notifyIcon1.Icon = new Icon(@"H:\学习资料\C# 窗体应用程序\自练\实现系统托盘\ico\qq彩色.ico"); this.notifyIcon1.Visible = true;

1, 下载 Trayconizer官网地址: http://www.whitsoftdev.com/trayconizer/下载地址: http://www.whitsoftdev.com/files/trayconizerw.zip 2, 解压 trayconizerw.zip解压到任意目录, 压缩包里只有一个 exe 文件我解压的位置是 D:\Program Files\trayconizerw\Trayconizer.exe 3, 创建 VMware 快捷方式(如果桌面上已经有 VMwar

基本功能概述: 程序运行后驻留系统托盘,左键呼出,右键退出.后续可加右键菜单. 注册系统案件WIN+F10,呼出程序. 重写系统消息,最小化和关闭按钮隐藏程序 using System; using System.Drawing; using System.Windows.Forms; using System.Runtime.InteropServices; public enum HotkeyModifiers { Alt = , Control = , Shift = , Win = }

(一)系统托盘和应用程序栏系统托盘(1)显示系统级别的状态信息(2)Apps能隐藏和显示系统托盘Micosoft.Phone.Shell.SystemTray.IsVisible=true;应用程序栏(1)用于显示一些通用操作的区域(2)支持弹出菜单显示更多的操作(二)应用程序栏(1)使用ApplicationBar不要使用自建的菜单系统. (2)使用系统默认的主题颜色(白色前景色和透明的背景)(3)支持最多4个操作图标,但不是必须4个.菜单项最多为5个.所以操作最多为9个.超过9个就要考虑自己

Delphi 10.1 Berlin UTF8String Test procedure TForm1.Button1Click(Sender: TObject); var s: UTF8String; i: Integer; begin s := UTF8Encode('123中文测试'); Memo1.Lines.Add(UTF8Decode(s)); for i:=Low(s) to High(s) do Memo1.Lines.Add(i.ToString + )); end;

Delphi 10.1 Berlin 官方修正列表: Bug fix list for RAD Studio 10.1 Berlin Delphi 10.1 Berlin 官方未列之修正: 修正 iOS App 设定为全屏后,无法使用 Zoom, Pan, LongTap 等手势.https://quality.embarcadero.com/browse/RSP-13840 (2016/04/28 被设定为解决) 修正 ListView 移动平台 (iOS, Android) 与 Window

在 iOS 9 Apple 加入了 HTTP 协议,还好有 TMS 提供快速修复工具,得以能顺利上架到 App Store. 现在 Delphi 10 Seattle Update 1 提供了这个设定功能,无需再使用 TMS 修复工具了,见下图:

如何解决Windows 10系统下设备的声音问题? 请阅读下面的说明来解决Windows 10设备上的声音问题. 1. 检查设备管理器 打开开始菜单,键入设备管理器, 从出现的结果中选择并打开它. 在声音.视频和游戏控制器栏目下, 选择并打开你的声卡 . 选择 驱动程序 一栏, 并选择 更新驱动程序. 如果系统没有找到新的驱动,可以尝试在ASUS官网寻找驱动. 如果上述步骤无效,尝试重装声卡驱动: 打开 设备管理器, 右击声卡驱动, 选择 卸载. 重启电脑,系统就会自动尝试重装声卡驱动. 如果无

delphi 10 里面的安卓服务有四种,上面的一篇文章里面的图有介绍. 今天做一个remote service 的例子.(里面一部分代码是抄别人的,如果不太清楚,自行恶补) remote service 实际上就是主程序包含服务模块,另外的一个程序可以调用. 由于delphi 10 的低级错误,需要手工修改一些东西.这一块可以参考http://blog.qdac.cc/?p=2839 为了不影响这个例子的顺利完成,本例中没有使用上面的修改.直接在本例中处理. 现在开工: 和以前一样,先建立一个