aview-app 1.0.2

package/aardio/lib/win/rt/bcp47.aardio

@@ -0,0 +1,102 @@
+//bcp47 语言标签
+import win.rt.hString;
+
+namespace win.rt.bcp47;
+
+try{
+	::Bcp47Langs := ..raw.loadDll("bcp47langs.dll",,"stdcall,unicode")	
+	::Winlangdb := ..raw.loadDll("winlangdb.dll",,"stdcall,unicode")
+}
+
+hString = ..win.rt.hString;
+getUserLanguages = function(){
+	var hstr = hString();
+	::Bcp47Langs.GetUserLanguages(';'#,hstr.byStruct());
+	return ..string.split( tostring(hstr):"",';')	
+}
+
+setUserLanguages = function(v){
+	if(type(v)=="table") v = ..string.join(v,";");
+	
+	var hstr = hString(v);
+	::Winlangdb.SetUserLanguages(';'#,hstr); 
+	hstr.free();
+}
+
+getUserLanguageInputMethods = function(lang){
+	if(!#sepChar) sepChar = ';';
+	
+	var hstr = hString();
+	::Bcp47Langs.GetUserLanguageInputMethods(lang,';'#,hstr.byStruct());
+	return ..string.split( tostring(hstr):"",';')		
+}
+
+//HKCU\Control Panel\International\User Profile
+getInputMethods = function(){
+	var result = {}
+	var langs = getUserLanguages();
+	for i,lang in ..table.eachIndex(langs){
+		result[lang] = getUserLanguageInputMethods(lang)
+	}
+	return result;
+}
+
+lcidFrom = function(bcp47){
+	var lcid = {INT v};
+	var lang = hString(bcp47);
+	::Bcp47Langs.LcidFromBcp47(lang,lcid);
+	lang.free();
+	
+	return lcid.v;
+}
+
+getName = function(bcp47){
+	var hstr = hString()
+	var lang = hString(bcp47);
+	::Bcp47Langs.Bcp47GetLanguageName(lang,hstr.byStruct())
+	lang.free();
+	
+	return tostring(hstr);
+}
+ 
+getAbbreviation = function(bcp47){
+	var hstr = hString()
+	var lang = hString(bcp47);
+	::Bcp47Langs.Bcp47GetAbbreviation(lang,hstr.byStruct())
+	lang.free();
+	
+	return tostring(hstr);
+}
+
+getIsoCode = function(bcp47){
+	var isoCode = hString();
+	var lang = hString(bcp47);
+	::Bcp47Langs.Bcp47GetIsoLanguageCode(lang,isoCode.byStruct());
+	lang.free();
+	
+	return tostring(isoCode);
+}
+
+/**intellisense(win.rt.bcp47) 
+getInputMethods() = 返回所有启用的输入法
+getUserLanguages() = 返回所有启用的 BCP47 语言缩写标签
+setUserLanguages(__) = 设置系统语言,进程需要管理权限,\n参数可以指定 BCP47 语言缩写标签组成的数组,\n也可以传入一个字符串，并且分号分隔所有BCP47 语言缩写标签
+getUserLanguageInputMethods(.(bcp47lang) = 返回指定语言所有启用的输入法,\n参数指定 BCP47 语言缩写标签
+lcidFrom(.(bcp47lang) = 参数指定 BCP47 语言缩写标签,\n返回对应的 LCID 数值
+getIsoCode(.(bcp47lang) = 参数指定 BCP47 语言缩写标签,\n返回对应的 ISO 语言代码 
+getName(.(bcp47lang) = 返回指定语言的完整名称,\n参数指定 BCP47 语言缩写标签
+getAbbreviation(.(bcp47lang) = 返回指定语言的缩写名称,\n例如中文返回"简体",英文返回"ENU",\n参数指定 BCP47 语言缩写标签
+end intellisense**/
+
+/**intellisense()
+win.rt.bcp47 = BCP47语言标签相关函数库,\n支持 Win8 以及 Win8 以后的操作系统,\nWindows Vista 及以后版本，采用 RFC 4646 作为语言标签，\n字符串最大长度 85，包含了结尾的零字符\n\n请参考相关库 sys.locale ,string.conv
+end intellisense**/
+
+/**intellisense(::)
+::Winlangdb = 标准库 win.rt.bcp47 加载的系统DLL组件,\n仅 Win8 以及 Win8 以后的系统支持此组件,\n!dllmodule.
+::Bcp47Langs = 标准库 win.rt.bcp47 加载的系统DLL组件,\n仅 Win8 以及 Win8 以后的系统支持此组件,\n!dllmodule.
+end intellisense**/
+
+/*
+Microsoft.InternationalSettings.Commands.dll
+*/

package/aardio/lib/win/rt/hString.aardio

@@ -0,0 +1,105 @@
+//hString 字符串
+namespace win.rt;	
+
+class hString{
+	ctor(str){
+		var newString;
+		if(str!==null){ 
+			if(type(str)===type.pointer){ 
+				newString = {ptr handle}
+				if(0===::ComBase.WindowsDuplicateString(str,newString)){
+					this.handle = newString.handle; 
+				}
+			}
+			else {
+				str = ..string.toUnicode(tostring(str))
+				newString = {ptr handle}
+				if(0===::ComBase.WindowsCreateString(str,#str/2,newString)){
+					this.handle = newString.handle;
+				}
+			}
+		}
+		
+		..table.gc(this,"free");
+	};
+	free = function(str){
+		if(newString){
+			::ComBase.WindowsDeleteString(newString.handle);
+			newString = null;
+		};
+		
+		this.handle = null;
+	};
+	@_meta;
+}
+
+namespace hString{
+	
+	try{
+		::ComBase := ..raw.loadDll("ComBase.dll",,"stdcall,unicode")
+	}
+	
+	_meta = {
+		_topointer = lambda() owner.handle;
+		_tostring = function(){
+			if(!owner.handle) return;
+			
+			var size ={INT value}
+			var s = ::ComBase.WindowsGetStringRawBufferP(owner.handle,size)	
+			if(s) return ..string.fromUnicode(s,,size.value);
+		}; 
+		_concat = function(v){
+			var out = {ptr v}
+			if(0==::ComBase.WindowsConcatString(owner,..win.rt.hString(v),out)){
+				var ret = ..win.rt.hString();
+				ret.handle = out.v;
+				return ret;
+			}
+		};
+		_get ={
+			size = function(){
+				if(!owner.handle) return 0;
+				return ::ComBase.WindowsGetStringLen(owner.handle);
+			}; 
+			copy = function(){
+				return ..win.rt.hString(owner.handle); 
+			};
+			byStruct = function(){
+				var this = owner;
+				return {
+					pointer handle;
+					@{
+						_set = function(k,v){ 
+							if(k=="handle"){
+								this.free();
+								this.handle = v;
+							}
+						}
+					}
+				}; 
+			}
+		}
+	} 
+	_meta._add = _meta._concat;
+	
+	is = function(v){
+		return v@ == _meta;
+	}
+}
+
+/**intellisense()
+win.rt.hString = WinRT 字符串,\n仅支持 Win10 以及 Win10 以上版本
+win.rt.hString( = 创建 WinRT 字符串,\n返回值可作为 tostring 参数转换为 aardio 字符串,\n可用于调用 WinRT 函数的 HSTRING 类型句柄参数\n也可以作为左操作数使用 + 或 ++ 操作符\n与其他值拼接返回新的 win.rt.hString 对象
+win.rt.hString(.() = 创建空的 WinRT 字符串
+win.rt.hString(.(value) = 传入任何非 null,pointer 类型参,\n此函数自动调用 tostring 转换为字符串参数,\n然后再创建并返回 WinRT 字符串,\n如果传入非 null 值，则应尽早调用 free 函数释放字符串
+win.rt.hString(.(HSTRING) = 传入 HSTRING 指针,\n复制此指针并返回新的 WinRT 字符串对象,\n此类型参数构建的对象需要调用 free 函数释放
+win.rt.hString() = !winRtHString.
+win.rt.is(__) = 判断输入值是否 win.rt.hString 对象
+end intellisense**/
+
+/**intellisense(!winRtHString.)
+free() = 释放字符串,\n即使不调用,回收该变量时也会自动调用此函数,\n如果调用 win.rt.hString 传入了非 null 参数则应尽早调用此函数,\n或者通过拼接、调用 copy 函数等创建新的 WinRT 字符串都应当调用此函数释放,\n否则不必要调用此函数
+copy() = 复制并返回新的字符串,\n复制的字符串应调用 free 函数释放
+byStruct() = 生成一个结构体,\n用于在 API 中接收 HSTRING 类型的输出参数,\n在 C++ 中该输出参数类型应为 HSTRING *,\n在 aardio 中对应参数可声明为 struct &&\n或者免声明调用 API 并传入 byStruct 的返回值作为参数\n\n当返回的结构体获取到 HSTRING 句柄后,\n会立即更新调用 byStruct 成员函数的 win.rt.hString 对象,\n在此之前会自动调用 free 函数释放之前可能需要释放的 HSTRING\n\n通过 byStruct 获取到的 HSTING 未增加引用计数也不需要释放,\n应立即通过 tostring 转换为 aardio 字符串或通过copy复制,\n并调用 free 函数清空或直接弃用或置为 null 值
+size() = 字符串长度,按字符计数
+end intellisense**/

package/aardio/lib/win/subclass.aardio

@@ -0,0 +1,38 @@
+//subclass 子类化
+namespace win;
+class subclass {
+
+	ctor( hwnd, wndproc ){
+		hwnd = hwnd[["hwnd"]] : hwnd;
+		if(!tonumber(hwnd)) error("请指定正确的窗口句柄参数@1",2);
+		if(type(wndproc) != type.function ) error("参数@2必须是函数对象",2)
+ 
+ 		this.wndproc = wndproc;
+		var wndproc_c = ..raw.tostdcall(function(hwnd,msg,wParam,lParam){
+			var prev = this.prevWndproc;
+			if( msg == 0x2/*_WM_DESTROY*/ ) { this.free(); } 
+			
+			var ret = this.wndproc(hwnd,msg,wParam,lParam); 
+			if( ret!== null ) return ret; 
+			return ::CallWindowProc(prev,hwnd,msg,wParam,lParam);
+		}, "int(addr hwnd,INT msg,ADDR wParam,addr lParam)");
+		
+		this.prevWndproc = ::SetWindowPointer(hwnd, -4/*_GWL_WNDPROC*/, wndproc_c) ;  
+		__wndproc_gc__[this] = wndproc_c;
+	} 
+	free = function(){ 
+		if( this.prevWndproc ){ 
+			::SetWindowPointer(hwnd, 0xFFFFFFFC/*_GWL_WNDPROC*/, this.prevWndproc ); 
+			__wndproc_gc__[this] = null; 
+			this.prevWndproc = null;
+		}
+	}
+}
+subclass.__wndproc_gc__ = {};
+ 
+/**intellisense()
+win.subclass = 窗口子类化:\n即替换当前进程内指定窗口的消息回调函数,\n用于个别无法直接指定消息回调函数的窗口
+win.subclass(窗口对象, 消息回调函数) = @.subclass(\n    hwnd__/*窗口对象或句柄*/,function (hwnd,message,wParam,lParam) { \n        \n    })
+!winsubclass.free() = 取消子类化.
+win.subclass()= !winsubclass.
+end intellisense**/

package/aardio/lib/win/taskScheduler.aardio

@@ -0,0 +1,194 @@
+//taskScheduler 计划任务
+import win.ui;
+namespace win;
+
+class taskScheduler {
+
+	ctor( winform ){
+		if(!winform){
+			winform = ..win.form( {} );
+			winform.messageOnly();
+		}
+		
+		var timerId;
+		var taskJobs = {}; 
+		var namedTask = {}; 
+	};
+	start = function( interval = 1000 ){  
+		if(timerId) winform.clearInterval(timerId);
+		
+		for(name,task in namedTask){ 
+			if( task.time ) task.lastRunTime = null; 
+			else task.lastRunTime = ..time(); 
+		} 
+		
+		timerId = winform.setInterval(
+			function(hwnd,msg,id,tick){ 
+				this.trigger();
+			},interval
+		);
+	};
+	stop = function(){
+		if( timerId ){
+			winform.clearInterval(timerId)
+			timerId = null;
+		}
+	};
+	create = function( name,job,...){ 
+		if( !name ||  namedTask[name] )
+			return null,"任务名字冲突";
+		
+		var task = {};	
+		taskJobs[task] = job;  
+		task.lastRunTime = ..time();
+		task.pending = true;
+		task.arguments = {...} 
+		task.arguments.length = rget(2,..table.range(task.arguments)); 
+		if( task.enabled === null ) task.enabled = true;
+		
+		namedTask[name] = task;
+		return task;
+	};
+	delete = function(name){
+		var task = name && namedTask[name];
+		if( !task) return false;
+		taskJobs[name] = null;
+		taskJobs[task] = null;
+		namedTask[name] = null;
+		return true;
+	}; 
+	serialize = function(){
+		for(name,task in namedTask){ 
+			if( task.beginTime ) task.beginTime.format="%Y/%m/%d %H:%M:%S";
+			if( task.expirationTime ) task.expirationTime.format="%Y/%m/%d %H:%M:%S";
+		} 
+		return ..table.tostring(namedTask);
+	};
+	deserialize = function( s,defJob ){
+		if(!#s) return null,"数据不能为空";
+		 
+		var ok,tasks = call(eval,,s); 
+		if( ! ( ok && type(tasks) == type.table ) ){
+			return null,"数据已损坏";
+		}
+		for(name,task in tasks){ 
+			if(task.beginTime) task.beginTime = ..time( task.beginTime,"%Y/%m/%d %H:%M:%S" );
+			if(task.expirationTime) task.expirationTime = ..time( task.expirationTime ,"%Y/%m/%d %H:%M:%S"); 
+			task.lastRunTime = ..time(); 
+			taskJobs[task] = defJob;
+		} 
+	};
+	get = function(name){
+		return name && namedTask[name];
+	};
+	set = function(name,job){
+		var task = name && namedTask[name];
+		if( task) {
+			taskJobs[task] = job;
+			return true;
+		}
+	};
+	trigger = function() {
+	
+		var now = ..time();
+		  
+		var taskQueue = {};
+		for( task,job in taskJobs ){
+		
+			if( !task.enabled ){
+				continue;
+			}
+		
+			if( task.beginTime && now < task.beginTime ){ 
+				task.pending = true;
+				continue;
+			}
+			
+			if( task.expirationTime && now > task.expirationTime ){ 
+				task.pending = true;
+				continue;
+			}
+			 
+			for(k,v in task.time ){
+				if( type(v) === "table" ){
+					if(!..table.find(v,now[k])) { task.pending = true; continue 2;}
+				}
+				elseif( now[k] != v ){  
+					task.pending = true; continue 2; 
+				} 
+			}  
+			
+			if(task.time && task.lastRunTime ){
+				var same = true;
+				for(k,v in task.time){
+					if( ( task.lastRunTime[k] !== v )  ){
+    					same = false;
+					}
+				}
+
+				if(same){
+					for i,v in ..table.eachIndex({"year";"month";"day";"hour";"minute";"second"}){
+						if( task.time[v] !== null ) {
+							continue 2; 
+						} 
+						elseif(now[v]!==task.lastRunTime[v]){ 
+							break; 
+						} 
+					}
+				}
+			}
+			 
+			for(k,v in task.interval  ){  
+				now.diff = now[ "diff" + k ];
+				if( now.diff( task.lastRunTime ) < v  ){
+					task.pending = true; continue 2;
+				} 
+			}  
+			 
+			if( !task.pending ) continue;
+			task.pending = false; 
+			 
+			task.lastResult = invoke(job,task,..table.unpack(task.arguments,1,task.arguments.length) );
+			task.lastRunTime  = ..time();
+			task.pending = true;
+		}  
+	}  
+}
+
+/**intellisense()
+win.taskScheduler = 计划任务
+win.taskScheduler(.(窗体对象) = 参数可省略\n注意仅在线程启动消息循环后起作用\n执行计划任务会阻塞定时器直到任务执行完成\n不希望阻塞定时器可使用 winform.setTimeout、或多线程异步执行代码
+win.taskScheduler() = !win_taskScheduler.
+!win_taskScheduler.serialize() = 序列化计划任务配置并返回字符串 
+!win_taskScheduler.deserialize( = 反序列化计划任务
+!win_taskScheduler.deserialize(.(字符串,默认回调函数) = 反序列化计划任务,并指定默认回调函数
+!win_taskScheduler.start(.(任务检测间隔) = 开始运行计划任务\n注意仅在线程启动消息循环后起作用\n检测间隔参数可选,默认为1000毫秒\n\n执行计划任务会阻塞定时器直到任务执行完成\n如果在计划任务中执行了win.delay等继续消息循环的代码，\n在计划任务退出前不会再触发同一计划任务（重入）。\n\n不希望阻塞定时器可使用 winform.setTimeout、或多线程异步执行代码
+!win_taskScheduler.stop() = 停止计划任务
+!win_taskScheduler.create("名字",执行函数) =  @.create("计划任务名字",function( arguments ){\n    \n} , __/*其他调用任务的参数*/ )
+!win_taskScheduler.delete(.("任务名字") = 删除指定任务
+!win_taskScheduler.get(.("任务名字") = 读取指定任务
+!win_taskScheduler.set(.("任务名字",执行函数) = 修改任务执行函数
+!win_taskScheduler.get() = !win_taskSchedulerTask.
+!win_taskScheduler.create() = !win_taskSchedulerTask.
+!win_taskSchedulerTask.enabled = 是否允许执行
+!win_taskSchedulerTask.time = @.time = { 
+	second =  秒 __/*请指定准时启动任务的时间字段值,\n可以指定数值,也可以用数组指定多个值,\n不作为条件匹配的时间字段不用指定\n即使任务在启动时间内完成也不会重新启动任务*/;
+	minute = 分钟 ; 
+	hour = 小时 ;
+	day = 日 ;
+	month = 月 ;
+	dayofweek = {1,2,3,4,5,6,0}
+}
+!win_taskSchedulerTask.interval = @.interval = { 
+	second = 间隔秒数 __/*请指定间隔执行的时间字段值*/;
+	minute = 间隔分钟数 ;
+	hour = 间隔小时数 ;
+	day = 间隔天数 ;
+	month = 间隔月数 ;
+} 
+!win_taskSchedulerTask.pending = 任务是否在等待状态\n如果正在执行任务，此属性返回false
+!win_taskSchedulerTask.lastRunTime = 任务最后运行的时间
+!win_taskSchedulerTask.lastResult = 最后一次执行的返回值
+!win_taskSchedulerTask.beginTime = 开始时间\n该值默认为空
+!win_taskSchedulerTask.expirationTime = 结束时间\n该值默认为空
+end intellisense**/

package/aardio/lib/win/timer.aardio

@@ -0,0 +1,86 @@
+//timer 定时管理器
+import win.ui;
+namespace win;
+
+class timer{
+	ctor( winform,interval = 100 ){
+		if( ! (winform[["hwnd"]] && winform.setInterval) ){
+			winform = ..win.form( {} );
+			winform.messageOnly();
+		}
+		
+		this.interval = interval;
+		this._form = winform;
+		this.proc = function(...){
+			if(this.count){
+				this.repeat = this.repeat + 1;
+				if(this.repeat > this.count ){
+					this.disable();
+					return 0;
+				}
+			}
+			
+			if(this.onTimer){
+				var ret = this.onTimer(...);
+				if( ret !== null) {
+					if(!ret)this.disable();
+					return ret;
+				}
+			}
+			
+			return this.interval
+		}  
+	};
+	
+	enable = function(interval,count){
+		if( this["(id)"] ) return;
+		if(interval!==null){
+			this.interval = interval;			
+		}
+		this["(id)"] = this._form.setInterval(  this.proc,this.interval); 
+		this.count = count;
+		this.repeat = 0;
+		if(count){ this.proc(this._form.hwnd,0x113,this["(id)"],0); };
+	};
+	
+	disable = function(){
+		if( this["(id)"] ){
+			this._form.clearInterval(this["(id)"])
+			if( this.onEnd ) this.onEnd();
+			this["(id)"] = null;
+		}
+	}; 
+	
+	getInterval = function(){
+		return this.interval;
+	}; 
+	
+	setInterval= function(v){
+		if( type(v) != type.number){
+			error("参数必须指定毫妙数的数值.",2)
+		};
+		
+		var needReset = this["(id)"] && v <  this.interval 
+		this.interval = v;
+		if(needReset){
+			this.disable();
+			this.enable();
+		}
+	}; 
+}
+
+/**intellisense()
+win.timer = 定时管理器
+win.timer(.(winform,interval) = 创建定时器\n如果不指定窗体对象,则创建消息窗体\ninterval为可选参数，用于指定间隔时间,以毫秒为单位,默认为100毫秒
+win.timer() = !win_timer.
+!win_timer.onTimer = @.onTimer = function(){
+	__/*设置定时器触发函数,此函数不应返回任何值*/
+}
+!win_timer.onEnd = @.onEnd = function(){
+	__/*定时器停止时触发此事件*/
+}
+!win_timer.enable(.(interval,count) = 启用定时器,\n可选使用interval参数中指定间隔时间,以毫秒为单位,\n可选使用count参数限定定时器执行次数,\n如果指定了有效执行次数,则定时器会立即执行一次onTimer函数,\n否则会先延时再执行onTimer函数
+!win_timer.disable() = 禁用定时器
+!win_timer.setInterval(1__) = 修改定时器间隔时间,\n以毫秒为单位
+!win_timer.getInterval() = 读取定时器间隔时间
+end intellisense**/

package/aardio/lib/win/ts/_.aardio

@@ -0,0 +1,155 @@
+import win.reg;
+import process.popen;
+import thread.token;
+
+namespace win.ts;
+
+::Wtsapi32 := ..raw.loadDll("Wtsapi32.dll");
+
+class session{
+	ctor( sessionId=-1,serverHandle ){
+		this.sessionId = sessionId;
+		this.serverHandle = serverHandle;
+	};
+	queryInfo  = function(infoClass,info){
+		var buffer = {ptr v}
+		var bufferSize = {INT v}
+		if(::Wtsapi32.WTSQuerySessionInformation(this.serverHandle,this.sessionId,infoClass,buffer,bufferSize) ){
+			
+			if(info===0) info = ..raw.convert(buffer.v,{INT v}).v; 
+			elseif(!info) info = ..raw.str(buffer.v,true); 
+			else ..raw.convert(buffer.v,info); 
+			
+			::Wtsapi32.WTSFreeMemory(buffer.v);
+			return info;
+		} 
+	};
+	id = function(){
+		return this.queryInfo(4/*WTSSessionId*/,0)
+	};
+	userName = function(){
+		return this.queryInfo(5/*WTSUserName*/)
+	};
+	stationName = function(){
+		return this.queryInfo(6/*WTSWinStationName*/)
+	};
+	domainName = function(){
+		return this.queryInfo(5/*WTSDomainName*/)
+	};
+	clientName = function(){
+		return this.queryInfo(10/*WTSClientName*/)
+	};
+	clientDirectory = function(){
+		return this.queryInfo(11/*WTSClientDirectory*/)
+	};
+	connectState = function(){
+		var state = this.queryInfo(8/*WTSConnectState*/,0) 
+		if(state!==null){
+			return self.connectState[state+1]
+		}
+	};
+	connect = function(targetId,logonPassword,wait){
+    	if(targetId===null)targetId = activeConsoleId();
+    	if(#logonPassword){
+    		return ::Wtsapi32.WTSConnectSessionB(this.sessionId,targetId,logonPassword,wait);
+    	}
+    	
+    	return ..thread.token.impersonate("winlogon.exe",function(){
+ 			return ::Wtsapi32.WTSConnectSessionB(this.sessionId,targetId,"",wait);
+		})
+	}
+	disconnect = function(wait){
+		return ::Wtsapi32.WTSDisconnectSessionB(this.serverHandle,this.sessionId,wait) 
+	};
+	isRemote = function(){
+		return !!this.queryInfo(29/*WTSIsRemoteSession*/)
+	};
+}
+
+session.isRemote = lambda() ::User32.GetSystemMetricsB(0x1000/*_SM_REMOTESESSION*/);
+
+session.connect = function(logonId,targetName,logonPassword){
+	var prcs = ..process.popen("tscon.exe "+( logonId:session.currentId() )+" /dest:" + (targetName:"console") + " " +(logonPassword?("/password:"+pw):""))
+	prcs.writeClose();
+	return rget(2,prcs.wait());
+}
+
+session.currentId = function(){
+	var _,id = ::Kernel32.ProcessIdToSessionId( ::Kernel32.GetCurrentProcessId(),{int v})
+	return id.v;
+}
+
+session.activeConsoleId = function(){
+	return ::Kernel32.WTSGetActiveConsoleSessionId();
+}
+
+session.connectState = {"active","connected","connectQuery","shadow","disconnected","idle","listen","reset","down"}
+session.enum = function(proc,serverHandle){
+	var infos = {ptr p}
+	var count = {INT v}
+	if (::Wtsapi32.WTSEnumerateSessions(serverHandle,,1,infos,count)){
+		var ret = ..raw.convertArray(infos.p,count.v,{ 
+				INT sessionId;
+				ustring stationName;
+				int state; 
+		})
+		
+		::Wtsapi32.WTSFreeMemory(infos.p);
+		if(!proc) return ret;
+		
+		for(i=1;#ret;1){
+			var v = ret[i];
+			v.state = session.connectState[v.state+1] 
+			var r = proc( v.sessionId,v.stationName,v.state );
+			if(r!==null) return r;
+		} 
+	}	
+} 
+
+suppressWhenMinimized = function(mode){
+	var reg = ..win.reg("HKEY_CURRENT_USER\Software\Microsoft\Terminal Server Client");
+	reg.setDwValue("RemoteDesktop_SuppressWhenMinimized",mode:0);
+	reg.close();
+}
+
+/**intellisense()
+win.ts = 远程桌面（即 Windows Terminal Server ）接口,\n更多会话函数请参考标准库 service
+win.ts.session(.(sessionId,serverHandle) = 创建会话对象，所有参数可选
+win.ts.session() = !wtsSession.
+win.ts.suppressWhenMinimized(mode) = 在客户端机器上设置远程桌面客户端最小化后是否保持桌面活动状态\n参数设为 0 为自动设置,1 为禁止活动状态,2 为保持活动状态
+end intellisense**/
+
+/**intellisense(win.ts.session)
+enum = @.enum(\n	function(sessionId,stationName,connectState){\n		console.log(sessionId,stationName,connectState,win.ts.session(sessionId).userName())__/*sessionId 会话ID\nstationName 会话名称，本机控制会话名为"console",\nconnectState 连接状态\n回调函数返回任何非 null 值可终止枚举,\n并且回调函数的返回值将传回为枚举函数的返回值*/\n	}\n)
+isRemote() =  当前是否通过远程桌面登录
+currentId() = 获取当前会话 ID
+activeConsoleId() = 获取活动桌面会话 ID
+connect( = 连接并切换会话,此函数需要管理权限,\n这个函数可用于源登录会话重新连接到其他会话拥有的激活的控制桌面,\n例如将当前远程桌面会话重新连接到本机控制桌面,\n以避免远程桌面关闭而退出会话\n\n此函数需要调用 tscon.exe,但家庭版缺少 tscon.exe,\n建议改用不依赖 tscon.exe 的 win.ts.session().connect() 函数
+connect(.(logonId,targetName,logonPassword) = 所有参数都是可选参数,\n@logonId 指定源会话ID，@logonId 默认为当前会话,\n@logonId指定源会话的登录用户必须拥有连接目标会话的权限,\n连接到 @targetName 指定目标会话名的桌面,@targetName 默认为本机控制会话（"console"）,\n@logonPassword 指定 @logonId 参数指定会话的密码,\n返回值1为标准输出,返回值2为错误输出,返回值3为退出代码\n\n如果切换远程桌面与本地桌面会话,\n@targetId 指定的控制会话桌面将被@logonId 指定的会话接管,\n@targetId指定的会话断开,\n\n如果用于切换本地登录用户,\n@targetId指定的控制会话桌面断开,@logonId 指定的会话将被激活
+end intellisense**/
+
+/**intellisense(!wtsSession)
+isRemote() = 是否通过远程桌面登录
+queryInfo(.(infoClass,info) = 查询信息，用法参考源码
+id() = 会话ID
+userName() = 用户名
+stationName() = 会话名
+domainName() = 域名
+clientName() = 客户端名
+clientDirectory() = 客户端目录
+connectState() = 连接状态
+connect( = 连接并切换会话,此函数需要管理权限,\n这个函数可用于源登录会话重新连接到其他会话拥有的激活的控制桌面,\n例如将当前远程桌面会话重新连接到本机控制桌面,\n以避免远程桌面关闭而退出会话
+connect(.(targetId,logonPassword,wait) = 当前源会话登录用户必须拥有连接到目标会话的权限,\n连接到 @targetId 指定目标会话ID,@targetId默认为本机控制会话（即"console"）,\n可选参数  @logonPassword 指定当前源会话的登录密码,注意不是目标会话的密码,\n可选参数 @wait 指定是否等待操作完成,\n函数执行成功返回true,失败返回false\n\n如果切换远程桌面与本地桌面会话,\n@targetId指定的控制会话桌面将被源会话接管,@targetId指定的会话断开,\n\n如果用于切换本地登录用户,\n@targetId指定的控制会话桌面断开,源会话将被激活
+disconnect(wait) = 断开会话连接，但不关闭会话, \n后续可重新连接到该会话
+end intellisense**/
+
+/**details(创建远程桌面客户端)
+
+import com.lite;
+var rdpClient = com.lite("MsTscAx.dll").createEmbed(winform,"{7cacbd7b-0d99-468f-ac33-22e495c0afe5}")
+var msTscAx = rdpClient._object;//获取控件对象 https://docs.microsoft.com/en-us/windows/win32/termserv/mstscax
+ 
+完整范例： 
+"~\codes\范例程序\F) COM 组件\1) 嵌入 ActiveX 控件\lite.aardio"
+
+end details**/