aview-app 1.0.2

package/aardio/lib/win/util/tray.aardio

@@ -0,0 +1,197 @@
+//tray 托盘图标
+import win;
+import win.ui;
+import win.image;
+
+namespace win.util;
+
+class tray {
+	ctor (hwnd, icon, tip = "") {
+		var nd = NOTIFYICONDATA(); 
+		nd.cbSize =  ..raw.sizeof(nd);
+		
+		if (hwnd[["hwnd"]]) {
+			var form = hwnd;
+			form.onTaskbarCreated = function() this.reset();
+			form.onDestroy = function() this.delete();
+			hwnd = form.hwnd;
+			
+			if(::User32.ChangeWindowMessageFilterEx){
+				::User32.ChangeWindowMessageFilterEx(hwnd,_WM_TASKBAR_CREATED,1/*_MSGFLT_ALLOW*/,null);
+			} 
+			
+			nd.uCallbackMessage = 0xACCF/*_WM_TRAYMESSAGE*/
+		} 
+		nd.hWnd = hwnd;
+		
+		if (type(icon) == type.number) {
+			if(icon >= 0x7F00/*_IDI_APPLICATION*/) { 
+				nd.hIcon =  ::LoadIcon(null, topointer(icon));
+			} else {
+				nd.hIcon =  ::LoadIcon(_HINSTANSE, topointer(icon)); 
+			}
+		} 
+		elseif (type(icon) == type.string) {
+			this.gcIcon = ..win.image.createIcon(icon,true,16,32);
+			nd.hIcon = this.gcIcon;
+		} 
+		else {
+			nd.hIcon = icon : _HAPPICON;
+		}
+		
+		nd.uFlags = 0x2/*_NIF_ICON*/ | 0x4/*_NIF_TIP*/ | 0x1/*_NIF_MESSAGE*/;
+		nd.szTip = ..string.left(tip, 128);
+			Shell_NotifyIcon(0x0/*_NIM_ADD*/, nd);
+		this.$notifyData = nd;
+	};
+	pop = function(info,title="",icon=1/*_NIIF_INFO*/,timeout=10){
+		assert( this.$notifyData ,"托盘图标对象已关闭");
+		this.$notifyData.timeout = timeout * 1000;//该值在vista以后系统无效
+		this.$notifyData.szInfoTitle = title ;
+		this.$notifyData.szInfo = info  ;
+		this.$notifyData.uFlags = this.$notifyData.uFlags | 0x10/*_NIF_INFO*/
+		if( type(icon) == type.number ){
+			this.$notifyData.dwInfoFlags = icon; 
+		}
+		else {
+			error("参数@3类型错误!",2);
+		}
+		
+		Shell_NotifyIcon(0x1/*_NIM_MODIFY*/, this.$notifyData); 
+	};
+	reset = function(){
+		if(!this.$notifyData)
+			return;
+			
+		Shell_NotifyIcon(0x2/*_NIM_DELETE*/,this.$notifyData) 
+		Shell_NotifyIcon(0x0/*_NIM_ADD*/,this.$notifyData) 
+	};
+	delete = function(){ 
+		if(!this.$notifyData) return; 
+		Shell_NotifyIcon(0x2/*_NIM_DELETE*/, this.$notifyData);
+		if (this.gcIcon) {
+			::DestroyIcon(this.gcIcon);
+			this.gcIcon = null;
+		}
+		this.$notifyData = null; 
+	};
+	@_meta;
+}
+
+namespace tray{
+
+	Shell_NotifyIcon := ::Shell32.api("Shell_NotifyIconW","int(int dwMessage, struct lpData)");
+	
+	class NOTIFYICONDATA {
+		INT cbSize;
+		int hWnd;
+		INT uID;
+		int uFlags;
+		INT uCallbackMessage;
+		pointer hIcon;  
+		WORD szTip[128] ;
+		INT dwState=0;
+		INT dwStateMask=0;
+		WORD szInfo[256]  ;
+		INT timeout;
+		WORD szInfoTitle[64]  ;
+		INT dwInfoFlags;  
+	}
+
+	pop = function(){} 
+	
+	_meta = {
+		_get = function(k,v) {
+			if(!owner[["$notifyData"]])
+				return;
+			
+			select(k) {
+				case "message" { 
+					return owner.$notifyData.uCallbackMessage;
+				}
+				case "tip" {
+					return owner.$notifyData.szTip;
+				}
+				case "icon" {
+					return owner.$notifyData.hIcon;
+				}
+			}
+		}
+		_set = function(k,v){
+			if(!owner[["$notifyData"]])
+				return;
+			
+			owner.$notifyData.uFlags = owner.$notifyData.uFlags & ~0x10/*_NIF_INFO*/;
+			select(k) {
+				case "message" { 
+					assert( tonumber(v) and ( v>0x400/*_WM_USER*/) ,"回调消息必须是一个大于0x400/*_WM_USER*/的数值")
+					owner.$notifyData.uCallbackMessage =  v;
+					if(v)
+						owner.$notifyData.uFlags = owner.$notifyData.uFlags | 0x1/*_NIF_MESSAGE*/;
+					else{
+						owner.$notifyData.uFlags = owner.$notifyData.uFlags & ~0x1/*_NIF_MESSAGE*/;
+					}
+					
+					Shell_NotifyIcon(0x1/*_NIM_MODIFY*/, owner.$notifyData);
+				}
+				case "tip" {
+					owner.$notifyData.szTip = v;
+					owner.$notifyData.uFlags = owner.$notifyData.uFlags | 0x4/*_NIF_TIP*/;
+					Shell_NotifyIcon(0x1/*_NIM_MODIFY*/, owner.$notifyData);
+				}
+				case "icon" {
+					
+					var gcIcon = owner.gcIcon;
+					owner.gcIcon = null;
+						
+					if (type(v) == type.number) { 
+						if (v >= 0x7F00/*_IDI_APPLICATION*/) { 
+							owner.$notifyData.hIcon =  ::LoadIcon(null, topointer(v));
+						} else {
+							owner.$notifyData.hIcon =  ::LoadIcon(::GetModuleHandle(null), topointer(v)); 
+						}
+					} elseif (type(v) == type.string) {
+						owner[["gcIcon"]] = ..win.image.createIcon(v,true,16,32);
+						owner.$notifyData.hIcon = owner[["gcIcon"]]; 
+						if( !owner[["gcIcon"]] ){
+							if (gcIcon) { ::DestroyIcon(gcIcon); }
+							error("图标未指定有效的ico文件路径或数据!",2);
+						}
+					} else {
+						owner.$notifyData.hIcon = v;
+					}
+					Shell_NotifyIcon(0x1/*_NIM_MODIFY*/, owner.$notifyData);
+					
+					if (gcIcon) {
+						::DestroyIcon(gcIcon);
+					}
+				}
+			}
+		}
+	}
+	
+	_WM_TASKBAR_CREATED =::RegisterWindowMessage("TaskbarCreated")
+	..win._form._defaultProc[_WM_TASKBAR_CREATED]  = function(this,hwnd, message, wParam, lParam){
+		if(this.onTaskbarCreated){
+			this.onTaskbarCreated(wParam, lParam);
+		}
+	}
+}
+
+/***intellisense()
+!winUtilTray.delete() = 删除托盘图标\n如果指定了图标数据或路径则必须在不需要托盘图标时调用delete函数释放
+!winUtilTray.reset() = 重置并恢复托盘图标
+!winUtilTray.tip = 设置鼠标提示信息
+!winUtilTray.message = 指定回调消息\n当用户点击托盘图标时、向主窗体发送此消息
+!winUtilTray.icon = 设置托盘的图标,\n值可以是图标ID、句柄、图标数据或图标路径,\n32位图标,最好同时提供 16x16、32x32 的图标
+!winUtilTray.pop( = 发送托盘消息通知
+!winUtilTray.pop(.(提示信息,标题,图标ID,显示超时) = 发送托盘消息通知\nWin10 以下显示为汽泡提示,\nWin10/11 开启专注助手以后仅发送到通知区,\nWin10/11 获取通知消息请使用 dotNet.toastListener 扩展库。\n\n图标 ID 可省略，警告图标设为2,错误图标设为3\n显示超时以秒为单位
+win.util.tray( = 创建托盘图标
+win.util.tray(.(主窗体,图标,提示信息) = 创建托盘图标,必须指定窗体对象。\n图标参数可指定图标ID、句柄、图标数据或图标路径，默认为窗体图标。\n提示信息：鼠标移到托盘图标上提示的信息,省略则没有提示信息
+win.util.tray() = !winUtilTray.
+_NIIF_INFO=@1/*_NIIF_INFO*/
+_NIIF_WARNING=@2/*_NIIF_WARNING*/
+_NIIF_ERROR=@3/*_NIIF_ERROR*/
+_NIIF_ICON_MASK=@0xF/*_NIIF_ICON_MASK*/
+_NIIF_NOSOUND=@0x10/*_NIIF_NOSOUND*/
+end intellisense***/

package/aardio/lib/win/version.aardio

@@ -0,0 +1,177 @@
+//version 版本信息
+namespace win
+
+version = {  
+	INT osVersionInfoSize = 284; 
+	INT majorVersion; 
+	INT minorVersion; 
+	INT buildNumber; 
+	INT platformId; 
+	WORD csdVersion[128];
+	WORD servicePackMajor;
+	WORD servicePackMinor;
+	WORD suiteMask;
+	BYTE productType;
+	BYTE reserved;
+} 
+
+if( !_WINXP && ::Ntdll.RtlGetVersionW ) ::Ntdll.RtlGetVersionW(version);
+else ::Kernel32.GetVersionExW( version );
+
+namespace version{
+	if(csdVersion) csdVersion = ..string.str(csdVersion);
+	
+	name = 	"Windows";
+	isServer = productType != 1/*_VER_NT_WORKSTATION*/;
+
+	if( platformId == 2 ){ 
+        if( majorVersion = 5 ){
+        	select(minorVersion) {
+        		case 1 {
+        			isXp = true;
+        			name = "Windows XP";
+        		}
+        		case 2 {
+         			if( !isServer){
+           				isXp = true;
+        				name = "Windows XP";
+         			}
+         			else {
+        				name = "Windows Server 2003";
+        			} 
+        		} 
+        	}
+        } 
+        else if( majorVersion ==  6 ){
+        	isVistaLater = true; 
+        	select(minorVersion) {
+        		case 0 {
+        			if( !isServer){
+        				isVista = true;
+        				name = "Windows Vista";
+        			}
+        			else {
+        				name = "Windows Server 2008";
+        			} 
+        		}
+        		case 1 {
+        			isWin7Later = true;
+        			if( !isServer){
+        				isWin7 = true;
+        				name = "Windows 7";
+        			}
+        			else {
+        				name = "Windows Server 2008 R2";
+        			}
+        		}
+        		case 2 {
+        			isWin7Later = true;
+        			isWin8Later = true;
+        			if( !isServer){
+        				isWin8 = true;
+        				name = "Windows 8";
+        			}
+        			else {
+        				isWin2012 = true;
+        				name = "Windows Server 2012";
+        			} 
+        		}
+        		case 3 {
+        			isWin7Later = true;
+        			isWin8Later = true;
+        			if( !isServer){
+        				isWin8 = true;
+        				name = "Windows 8.1";
+        			}
+        			else {
+        				isWin2012 = true;
+        				name = "Windows Server 2012 R2";
+        			} 
+        		}
+        		case 4 {
+        			isWin7Later = true;
+        			isWin8Later = true;
+        			isWin10Later = true;
+        			name = "Windows 10";
+        		}
+        	} 
+        } 
+        else if( majorVersion ==  10 ){
+        	isVistaLater = true;
+        	isWin7Later = true;
+        	isWin8Later = true;
+        	isWin10Later = true;
+        	
+        	if(buildNumber>=21996){
+        		isWin11Later = true;
+        		
+        		if( !isServer ) name = "Windows 11"; 
+        		else name = "Windows Server 11"; 
+        	} 
+        	else {
+        		if( !isServer ) name = "Windows 10"; 
+        		else {
+        			if(buildNumber<17763) name = "Windows Server 2016";
+        			elseif(buildNumber<=14393) name = "Windows Server 2019";
+        			else name = "Windows Server 10";
+        		}
+        	}
+        }
+        else {
+        	isVistaLater = true;
+        	isWin7Later = true;
+        	isWin8Later = true;
+        	isWin10Later = true;
+        }
+	} 
+	
+	displayVersion = majorVersion +"." + minorVersion;
+	format = function(){
+		return ..string.format("%s%s (OS Build %s)"
+			, #csdVersion ? name + " " + csdVersion : name
+			, (..win.versionEx || !_WIN10_LATER)? " Version " + displayVersion : ""
+			, updateBuildRevision? buildNumber + "." + updateBuildRevision : buildNumber 
+			) 
+	}
+}
+
+/*
+详细说明请参考MSDN 
+https://docs.microsoft.com/zh-cn/windows/win32/api/winnt/ns-winnt-osversioninfoexW
+*/
+
+/**intellisense(!winVersion)
+format() = 格式化为文本格式的版本号
+displayVersion = 用于显示的版本号,\n默认显示为主版本号 + "." + 副版本号\n\n如果导入了 win.versionEx：\nWin 10,Win 11 显示为4字符发行时间,\n前2位数字为年份,春季加H1,秋季加H2\nWin10 20H2 以前返回后2位为月份的 Release ID
+majorVersion = 操作系统的主版本号\n注意 Windows 11 的主版本号仍然是 10
+minorVersion = 操作系统的副版本号
+buildNumber = 操作系统的构建版本号
+platformId = 平台ID
+csdVersion = 关于该操作系统的附加信息
+productType = 产品类型,多个选项按位和\n普通家用操作系统_VER_NT_WORKSTATION\n服务器操作系统_VER_NT_SERVER,_VER_NT_DOMAIN_CONTROLLER
+name = 操作系统产品名称,例如\n"Windows XP"\n"Windows 7"\n"Windows 2012 R2"
+isServer = 是否服务器版本系统
+isVistaLater = 当前系统是否 Vista 以及 Vista 以后的版本\n该值如果为false,即为 Win  xp, Win  2003操作系统
+isWin7Later = 当前系统是否 Win 7以及 Win 7以后的版本
+isWin8Later = 当前系统是否 Win 8以及 Win 8以后的版本
+isWin10Later = 当前系统是否 Win 10以及 Win 10以后的版本
+isWin11Later = 当前系统是否 Win  11以及 Win 11以后的版本\n注意 Windows 11 的主版本号仍然是 10
+isXp = 是否 Win XP
+isVista = 是否 Vista
+isWin7 = 是否 win7
+isWin8 = 是否 win8
+end intellisense**/
+
+/**intellisense()
+win.version = 系统版本信息\naardio 内建以下全局常量也可用于检测系统版本：\n_WINXP,_WIN7_LATER,_WIN10_LATER,_WINE,\n_WIN_VER_MAJOR,_WIN_VER_MINOR,_WIN_VER_BUILD 等\n!winVersion.
+_VER_NT_DOMAIN_CONTROLLER = @0x2/*_VER_NT_DOMAIN_CONTROLLER*/ 
+_VER_NT_SERVER = @0x3/*_VER_NT_SERVER*/
+_VER_NT_WORKSTATION = @1/*_VER_NT_WORKSTATION*/
+_VER_MINORVERSION=@0x1/*_VER_MINORVERSION*/
+_VER_MAJORVERSION=@0x2/*_VER_MAJORVERSION*/
+_VER_SERVICEPACKMAJOR=@0x20/*_VER_SERVICEPACKMAJOR*/
+_VER_GREATER_EQUAL=@0x3/*_VER_GREATER_EQUAL*/
+_VER_NT_WORKSTATION=@1/*_VER_NT_WORKSTATION*/
+_VER_PRODUCT_TYPE=@0x80/*_VER_PRODUCT_TYPE*/
+_VER_EQUAL=@0x1/*_VER_EQUAL*/
+end intellisense**/

package/aardio/lib/win/versionEx.aardio

@@ -0,0 +1,70 @@
+//versionEx 扩展版本信息
+import win.reg;
+import win.version;
+
+win.versionEx = win.version;
+namespace win.versionEx{ 
+	
+	var reg = ..win.regReader("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion")
+	updateBuildRevision = reg.queryValue("UBR") : 0;
+	
+	productName = reg.queryValue("ProductName");
+	if(isWin11Later){
+		productName = ..string.replace(productName,"Windows\s+10","Windows 11");
+	}
+	
+	editionId = reg.queryValue("EditionID");
+	displayVersion = reg.queryValue("DisplayVersion") ||  reg.queryValue("ReleaseId");
+  
+	//https://docs.microsoft.com/en-us/windows/release-health/release-information
+	var win10ReleaseId = {
+		[10240] = "1507";
+		[10586] = "1511";
+		[14393] = "1607";//SERVER 2016
+		[15063] = "1703";
+		[16299] = "1709";
+		[17134] = "1803";
+		[17763] = "1809";//SERVER 2019
+		[18362] = "1903";
+		[18363] = "1909";
+		[19041] = "2004";//20H1
+		[19042] = "2009";//20H2 自该版本已不再更新 Release ID
+	}	
+	if(isWin10Later){
+		releaseId = win10ReleaseId[buildNumber]
+		if(!releaseId) releaseId = reg.queryValue("ReleaseId");  
+		displayVersion = reg.queryValue("DisplayVersion") : releaseId; 
+	} 
+	else {
+		displayVersion = (majorVersion +"." + minorVersion);
+	}
+	
+	isWin10ReleaseLater = function(releaseId){ 
+		if(isWin11Later) return true; 
+		
+		if( isWin10Later ) {
+			if(buildNumber>=19042) return true; //Win10 20H2 已废弃 Release ID
+			
+			if(releaseId){
+				return tonumber(self.releaseId) >= tonumber(releaseId)
+			}
+			
+			for(build,releaseVersion in win10ReleaseId){
+				if(releaseVersion==releaseId){
+					return self.buildNumber >= build;
+				}
+			}
+		}
+	}
+}
+
+/**intellisense(!winVersion)
+productName = 产品名称,例如"Windows 10 Pro","Windows Server (R) 2008 Standard"等等\n需要导入win.versionEx此属性才可用
+editionId = 版本ID，例如 "Professional","ServerStandard"等等\n需要导入win.versionEx此属性才可用
+updateBuildRevision = 更新小版本号\n需要导入 win.versionEx 此属性才可用
+isWin10ReleaseLater(__) = 参数指定 Win10 Release ID,\nRelease ID 前 2 位为年份，后 2 位为发行月份,\n因为最后一个使用 Release ID 的系统为 Win10 2009（20H2）,\nWin10 20H2 以及之后的系统总是返回 true\n\n需要导入 win.versionEx 此函数才可用
+end intellisense**/
+
+/**intellisense()
+win.versionEx = 导入后 win.versionEx 指向 win.version 并进行扩展,\n增加 productName,editionId,updateBuildRevision 等字段,\n增强 format 函数,以及改变 displayVersion 为 Win10,Win11 格式\n\naardio 内建以下全局常量也可用于检测系统版本：\n_WINXP,_WIN7_LATER,_WIN10_LATER,_WINE,\n_WIN_VER_MAJOR,_WIN_VER_MINOR,_WIN_VER_BUILD 等\n!winVersion.
+end intellisense**/