aview-app 1.0.2

package/aardio/lib/sys/device.aardio

@@ -0,0 +1,217 @@
+//device 硬件设备列表
+import win.guid;
+import win.reg;
+
+namespace sys;
+
+class device{
+	ctor( classGuid,enumerator,flags = 2/*_DIGCF_PRESENT*/,hwndParent){
+	
+		if( classGuid === null ) flags = flags | 4/*_DIGCF_ALLCLASSES*/
+		elseif(type.isString(classGuid)) classGuid = ..win.guid.fromString(classGuid);
+		
+		this.hDevInfo  =  ::Setupapi.SetupDiGetClassDevs(classGuid, enumerator,  hwndParent,  flags); 
+		if(!this.hDevInfo) return;
+		
+		..table.gc(this,"destroy");
+	};
+	each = function(...){
+		
+		
+		var idx = 0;
+		var propertyType = {...}
+		return function(){
+			var adapterData = SP_DEVINFO_DATA();
+			if(::Setupapi.SetupDiEnumDeviceInfo(this.hDevInfo,idx,adapterData)){
+				
+				var property = {};
+				for(i=1;#propertyType;1){
+					if(type.isString(propertyType[i])){
+						var hkey =::Setupapi.SetupDiOpenDevRegKey(this.hDevInfo,adapterData,1/*_DICS_FLAG_GLOBAL*/, 0, 1/*_DIREG_DEV*/, 1/*_KEY_QUERY_VALUE*/) 
+						if(!hkey) continue;
+							
+						var reg = ..win.reg(hkey);
+						property[i] = reg.queryValue(propertyType[i]);
+						reg.close();
+						continue;
+					}
+					
+					var ret,dataType,propertyBuffer,requiredSize = SetupDiGetDeviceRegistryProperty(this.hDevInfo,adapterData,propertyType[i],0,0,0,0);
+					if(requiredSize) {
+						ret,dataType,propertyBuffer,requiredSize =  SetupDiGetDeviceRegistryProperty(this.hDevInfo,adapterData,propertyType[i],0,requiredSize,requiredSize,0);
+
+						select(dataType) { 
+								case 0x1/*_REG_SZ*/,0x2/*_REG_EXPAND_SZ*/ {
+									property[i] = ..string.fromUnicode(propertyBuffer);
+									property[i] = ..string.trimright(property[i],'\0');
+								}
+								case 0x4/*_REG_DWORD*/ {
+									property[i] = ..raw.convert(propertyBuffer ,{INT v }).v; 
+								}
+								case 0x5/*_REG_DWORD_BIG_ENDIAN*/ {
+									property[i] = ..raw.swap(  ..raw.convert(propertyBuffer ,{INT v }).v );  
+								}
+								case 0x3/*_REG_BINARY*/ {
+									property[i] = propertyBuffer;
+								} 
+								case 0x7/*_REG_MULTI_SZ*/ {
+									var p = ..string.fromUnicode(propertyBuffer,,requiredSize/2);
+									p = ..string.trimright(p,'\0');
+									property[i] = ..string.split(p,'\0'); 
+								}
+								else {
+									property[i] = propertyBuffer;
+								} 
+							} 
+						}
+				}
+				
+				idx ++;
+				..table.push(property,adapterData)
+				return idx,..table.unpackArgs( property )
+			}
+		}
+	};
+	destroy = function(){
+		if(this.hDevInfo ){
+			::Setupapi.SetupDiDestroyDeviceInfoList(this.hDevInfo );
+			this.hDevInfo = null;
+		};
+	}; 
+}
+	
+namespace device{
+	
+	manager = function(winform){
+		..raw.loadDll("devmgr.dll").DeviceManager_Execute(winform[["hwnd"]]||winform,_HINSTANSE,"",5/*_SW_SHOW*/);
+	}
+	
+	::Setupapi := ..raw.loadDll("Setupapi.dll");
+	SetupDiGetDeviceRegistryProperty = ::Setupapi.api("SetupDiGetDeviceRegistryProperty"
+	,"bool(addr deviceInfoSet,struct deviceInfoData,INT property,INT &dataType,string &propertyBuffer,INT propertyBufferSize,INT &requiredSize)" );
+	
+	class SP_DEVINFO_DATA {
+		INT cbSize = 28;
+		struct classGuid = ..win.guid();
+		INT devInst;
+		ADDR reserved;
+	}
+}
+
+/**intellisense()
+sys.device = 用于获取硬件设备列表
+sys.device(.("设备类名","枚举键名",选项,父窗口句柄) = 获取设备列表，所有参数可选，\n设备类名可以设备管理器中查看,可输入 _GUID_DEVCLASS_ 前缀的常量自动转换,\n枚举键名可以是 PCI,USB 等等,也可以省略\n参数请参考SetupDiGetClassDevs这个API的文档
+sys.device() = !stdSysDevice.
+!SP_DEVINFO_DATA.devInst = 设备句柄
+!SP_DEVINFO_DATA.classGuid = 设备类 GUID,\nwin.guid 对象
+!stdSysDevice.each() = !SP_DEVINFO_DATA.
+!stdSysDevice.each(任意个字段类型参数) = @for( index,classGuid,deviceDesc,devInfo in ??.each(\n    8/*_SPDRP_CLASSGUID*/,\n    0/*_SPDRP_DEVICEDESC*/\n    ) ){\n    __/*可用_SPDRP前缀的常量指定任意个查询字段,\n相应增加对应个数的迭代器返回值,但第一个迭代返回值总是表示位置索引\n最后一个迭代返回值总是当前设备的 SP_DEVINFO_DATA 结构体*/\n\n}
+!stdSysDevice.destroy() = 删除设备列表\n此函数不是必须调用,内存回收器会自动调用此函数
+sys.device.manager() = 打开设备管理器
+_SPDRP_DEVICEDESC=@0/*_SPDRP_DEVICEDESC*/
+_SPDRP_HARDWAREID=@1/*_SPDRP_HARDWAREID*/
+_SPDRP_COMPATIBLEIDS=@2/*_SPDRP_COMPATIBLEIDS*/
+_SPDRP_UNUSED0=@3/*_SPDRP_UNUSED0*/
+_SPDRP_SERVICE=@4/*_SPDRP_SERVICE*/
+_SPDRP_UNUSED1=@5/*_SPDRP_UNUSED1*/
+_SPDRP_UNUSED2=@6/*_SPDRP_UNUSED2*/
+_SPDRP_CLASS=@7/*_SPDRP_CLASS*/
+_SPDRP_CLASSGUID=@8/*_SPDRP_CLASSGUID*/
+_SPDRP_DRIVER=@9/*_SPDRP_DRIVER*/
+_SPDRP_CONFIGFLAGS=@0xA/*_SPDRP_CONFIGFLAGS*/
+_SPDRP_MFG=@0xB/*_SPDRP_MFG*/
+_SPDRP_FRIENDLYNAME=@0xC/*_SPDRP_FRIENDLYNAME*/
+_SPDRP_LOCATION_INFORMATION=@0xD/*_SPDRP_LOCATION_INFORMATION*/
+_SPDRP_PHYSICAL_DEVICE_OBJECT_NAME=@0xE/*_SPDRP_PHYSICAL_DEVICE_OBJECT_NAME*/
+_SPDRP_CAPABILITIES=@0xF/*_SPDRP_CAPABILITIES*/
+_SPDRP_UI_NUMBER=@0x10/*_SPDRP_UI_NUMBER*/
+_SPDRP_UPPERFILTERS=@0x11/*_SPDRP_UPPERFILTERS*/
+_SPDRP_LOWERFILTERS=@0x12/*_SPDRP_LOWERFILTERS*/
+_SPDRP_BUSTYPEGUID=@0x13/*_SPDRP_BUSTYPEGUID*/
+_SPDRP_LEGACYBUSTYPE=@0x14/*_SPDRP_LEGACYBUSTYPE*/
+_SPDRP_BUSNUMBER=@0x15/*_SPDRP_BUSNUMBER*/
+_SPDRP_ENUMERATOR_NAME=@0x16/*_SPDRP_ENUMERATOR_NAME*/
+_SPDRP_SECURITY=@0x17/*_SPDRP_SECURITY*/
+_SPDRP_SECURITY_SDS=@0x18/*_SPDRP_SECURITY_SDS*/
+_SPDRP_DEVTYPE=@0x19/*_SPDRP_DEVTYPE*/
+_SPDRP_EXCLUSIVE=@0x1A/*_SPDRP_EXCLUSIVE*/
+_SPDRP_CHARACTERISTICS=@0x1B/*_SPDRP_CHARACTERISTICS*/
+_SPDRP_ADDRESS=@0x1C/*_SPDRP_ADDRESS*/
+_SPDRP_UI_NUMBER_DESC_FORMAT=@0x1D/*_SPDRP_UI_NUMBER_DESC_FORMAT*/
+_SPDRP_DEVICE_POWER_DATA=@0x1E/*_SPDRP_DEVICE_POWER_DATA*/
+_SPDRP_REMOVAL_POLICY=@0x1F/*_SPDRP_REMOVAL_POLICY*/
+_SPDRP_REMOVAL_POLICY_HW_DEFAULT=@0x20/*_SPDRP_REMOVAL_POLICY_HW_DEFAULT*/
+_SPDRP_REMOVAL_POLICY_OVERRIDE=@0x21/*_SPDRP_REMOVAL_POLICY_OVERRIDE*/
+_SPDRP_INSTALL_STATE=@0x22/*_SPDRP_INSTALL_STATE*/
+_SPDRP_LOCATION_PATHS=@0x23/*_SPDRP_LOCATION_PATHS*/
+_SPDRP_BASE_CONTAINERID=@0x24/*_SPDRP_BASE_CONTAINERID*/
+_SPDRP_MAXIMUM_PROPERTY=@0x25/*_SPDRP_MAXIMUM_PROPERTY*/
+end intellisense**/
+
+	/**intellisense()
+_GUID_DEVCLASS_1394=@"{6BDD1FC1-810F-11D0-BEC7-08002BE2092F}"
+_GUID_DEVCLASS_1394DEBUG=@"{66F250D6-7801-4A64-B139-EEA80A450B24}"
+_GUID_DEVCLASS_61883=@"{7EBEFBC0-3200-11D2-B4C2-00A0C9697D07}"
+_GUID_DEVCLASS_ADAPTER=@"{4D36E964-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_APMSUPPORT=@"{D45B1C18-C8FA-11D1-9F77-0000F805F530}"
+_GUID_DEVCLASS_AVC=@"{C06FF265-AE09-48F0-812C-16753D7CBA83}"
+_GUID_DEVCLASS_BATTERY=@"{72631E54-78A4-11D0-BCF7-00AA00B7B32A}"
+_GUID_DEVCLASS_BIOMETRIC=@"{53D29EF7-377C-4D14-864B-EB3A85769359}"
+_GUID_DEVCLASS_BLUETOOTH=@"{E0CBF06C-CD8B-4647-BB8A-263B43F0F974}"
+_GUID_DEVCLASS_CDROM=@"{4D36E965-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_COMPUTER=@"{4D36E966-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_DECODER=@"{6BDD1FC2-810F-11D0-BEC7-08002BE2092F}"
+_GUID_DEVCLASS_DISKDRIVE=@"{4D36E967-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_DISPLAY=@"{4D36E968-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_DOT4=@"{48721B56-6795-11D2-B1A8-0080C72E74A2}"
+_GUID_DEVCLASS_DOT4PRINT=@"{49CE6AC8-6F86-11D2-B1E5-0080C72E74A2}"
+_GUID_DEVCLASS_ENUM1394=@"{C459DF55-DB08-11D1-B009-00A0C9081FF6}"
+_GUID_DEVCLASS_FDC=@"{4D36E969-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_FLOPPYDISK=@"{4D36E980-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_GPS=@"{6BDD1FC3-810F-11D0-BEC7-08002BE2092F}"
+_GUID_DEVCLASS_HDC=@"{4D36E96A-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_HIDCLASS=@"{745A17A0-74D3-11D0-B6FE-00A0C90F57DA}"
+_GUID_DEVCLASS_IMAGE=@"{6BDD1FC6-810F-11D0-BEC7-08002BE2092F}"
+_GUID_DEVCLASS_INFINIBAND=@"{30EF7132-D858-4A0C-AC24-B9028A5CCA3F}"
+_GUID_DEVCLASS_INFRARED=@"{6BDD1FC5-810F-11D0-BEC7-08002BE2092F}"
+_GUID_DEVCLASS_KEYBOARD=@"{4D36E96B-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_LEGACYDRIVER=@"{8ECC055D-047F-11D1-A537-0000F8753ED1}"
+_GUID_DEVCLASS_MEDIA=@"{4D36E96C-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_MEDIUM_CHANGER=@"{CE5939AE-EBDE-11D0-B181-0000F8753EC4}"
+_GUID_DEVCLASS_MEMORY=@"{5099944A-F6B9-4057-A056-8C550228544C}"
+_GUID_DEVCLASS_MODEM=@"{4D36E96D-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_MONITOR=@"{4D36E96E-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_MOUSE=@"{4D36E96F-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_MTD=@"{4D36E970-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_MULTIFUNCTION=@"{4D36E971-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_MULTIPORTSERIAL=@"{50906CB8-BA12-11D1-BF5D-0000F805F530}"
+_GUID_DEVCLASS_NET=@"{4D36E972-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_NETCLIENT=@"{4D36E973-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_NETSERVICE=@"{4D36E974-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_NETTRANS=@"{4D36E975-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_NODRIVER=@"{4D36E976-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_PCMCIA=@"{4D36E977-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_PNPPRINTERS=@"{4658EE7E-F050-11D1-B6BD-00C04FA372A7}"
+_GUID_DEVCLASS_PORTS=@"{4D36E978-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_PRINTER=@"{4D36E979-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_PRINTERUPGRADE=@"{4D36E97A-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_PROCESSOR=@"{50127DC3-0F36-415E-A6CC-4CB3BE910B65}"
+_GUID_DEVCLASS_SBP2=@"{D48179BE-EC20-11D1-B6B8-00C04FA372A7}"
+_GUID_DEVCLASS_SCSIADAPTER=@"{4D36E97B-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_SECURITYACCELERATOR=@"{268C95A1-EDFE-11D3-95C3-0010DC4050A5}"
+_GUID_DEVCLASS_SENSOR=@"{5175D334-C371-4806-B3BA-71FD53C9258D}"
+_GUID_DEVCLASS_SIDESHOW=@"{997B5D8D-C442-4F2E-BAF3-9C8E671E9E21}"
+_GUID_DEVCLASS_SMARTCARDREADER=@"{50DD5230-BA8A-11D1-BF5D-0000F805F530}"
+_GUID_DEVCLASS_SOUND=@"{4D36E97C-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_SYSTEM=@"{4D36E97D-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_TAPEDRIVE=@"{6D807884-7D21-11CF-801C-08002BE10318}"
+_GUID_DEVCLASS_UNKNOWN=@"{4D36E97E-E325-11CE-BFC1-08002BE10318}"
+_GUID_DEVCLASS_USB=@"{36FC9E60-C465-11CF-8056-444553540000}"
+_GUID_DEVCLASS_VOLUME=@"{71A27CDD-812A-11D0-BEC7-08002BE2092F}"
+_GUID_DEVCLASS_VOLUMESNAPSHOT=@"{533C5B84-EC70-11D2-9505-00C04F79DEAF}"
+_GUID_DEVCLASS_WCEUSBS=@"{25DBCE51-6C8F-4A72-8A6D-B54C2B4FC835}"
+_GUID_DEVCLASS_WPD=@"{EEC5AD98-8080-425F-922A-DABF3DE3F69A}"
+_GUID_DEVCLASS_EHSTORAGESILO=@"{9DA2B80F-F89F-4A49-A5C2-511B085B9E8A}"
+_GUID_DEVCLASS_FIRMWARE=@"{F2E7DD72-6468-4E36-B6F1-6488F42C1B52}"
+_GUID_DEVCLASS_EXTENSION=@"{E2F84CE7-8EFA-411C-AA69-97454CA4CB57}"
+end intellisense**/

package/aardio/lib/sys/display.aardio

@@ -0,0 +1,49 @@
+//display 显卡
+import com.interface.IDirect3D9;
+import fsys.version;
+import sys.monitor;
+
+namespace sys.display;
+
+getAdapter = function(adapter,flags){
+    var d3d = ..com.interface.IDirect3D9.Create(32);
+	var di = d3d.GetAdapterIdentifier(adapter:0,flags:0);
+	..com.Release(d3d);
+	return di;
+}
+
+enumAdapters = function(proc){
+	var d3d = ..com.interface.IDirect3D9.Create(32);
+	for(i=0;d3d.GetAdapterCount()-1;1){
+		var di = d3d.GetAdapterIdentifier(i,0);
+		di.caps = d3d.GetDeviceCaps(i,1/*_D3DDEVTYPE_HAL*/) 
+			|| d3d.GetDeviceCaps(i,2/*_D3DDEVTYPE_REF*/)
+			|| d3d.GetDeviceCaps(i,4/*_D3DDEVTYPE_NULLREF*/)
+			|| d3d.GetDeviceCaps(i,0x7FFFFFFF/*_D3DDEVTYPE_FORCE_DWORD*/);
+
+		var drv = ..fsys.version(
+			major = ::HIWORD(di.DriverVersion.HighPart );
+			minor = ::LOWORD(di.DriverVersion.HighPart );
+			build = ::HIWORD(di.DriverVersion.LowPart );
+			revision = ::LOWORD(di.DriverVersion.LowPart );
+		);
+		
+		if( proc(di,di.Description,tostring(drv)) ) return false;
+	}
+
+	..com.Release(d3d);
+	return true;
+}
+
+eachMode = ..sys.monitor.eachMode
+
+/**intellisense()
+sys.display.enumAdapters(回调函数) = @.enumAdapters(\nfunction(info,description,driverVersion){\n	__/*枚举显卡,info为显卡信息,description为显卡名称\n第一个显卡是默认显示\n返回true退出枚举*/\n})
+sys.display.eachMode(flags,idx) = @for( devMode in sys.display.eachMode() ){
+	if( devMode.pelsWidth > (devMode.pelsWidth > devMode.pelsHeight ? 640 : 480) ){
+		__/*列出显卡支持的分辨率*/
+	}
+}
+sys.display.eachMode() = !DEVMODE_DISPLAY_DEVICE.
+sys.display.getAdapter() = 获取显卡信息\n!D3DADAPTER_IDENTIFIER9.
+end intellisense**/

package/aardio/lib/sys/displaySwitch.aardio

@@ -0,0 +1,27 @@
+//displaySwitch 切换显示器
+
+namespace sys.displaySwitch;
+
+clone = function(){
+	::User32.SetDisplayConfig(0,null,0,null,2/*SDC_TOPOLOGY_CLONE*/|0x80/*_SDC_APPLY*/);
+} 
+
+extend = function(){
+	::User32.SetDisplayConfig(0,null,0,null,4/*SDC_TOPOLOGY_EXTEND*/|0x80/*_SDC_APPLY*/);
+}
+
+internal = function(){
+	::User32.SetDisplayConfig(0,null,0,null,1/*SDC_TOPOLOGY_INTERNAL*/|0x80/*_SDC_APPLY*/);
+}
+
+external = function(){
+	::User32.SetDisplayConfig(0,null,0,null,8/*SDC_TOPOLOGY_EXTERNAL*/|0x80/*_SDC_APPLY*/);
+}
+
+/**intellisense(sys)
+displaySwitch = 切换显示器，支持 Win7 以及之后操作系统。\n也可以直接按 WIN + P 切换
+displaySwitch.clone() = 切换为复制主显示器
+displaySwitch.extend() = 切换为扩展主显示器
+displaySwitch.internal() = 切换为使用主显示器
+displaySwitch.external() = 切换为使用副显示器
+end intellisense**/

package/aardio/lib/sys/hd.aardio

@@ -0,0 +1,152 @@
+//hd 硬盘序列号
+import fsys.file;
+
+namespace sys.hd  {
+     
+    class IDEREGS { 
+    	BYTE bFeaturesReg;
+    	BYTE bSectorCountReg;
+    	BYTE bSectorNumberReg;
+    	BYTE bCylLowReg;
+    	BYTE bCylHighReg;
+    	BYTE bDriveHeadReg;
+    	BYTE bCommandReg;
+    	BYTE bReserved; 
+    } 
+    
+    class DRIVERSTATUS { 
+    	BYTE bDriverError;
+    	BYTE bIDEStatus; 
+    	BYTE bReserved[2];
+    	int dwReserved[2];
+    }
+      
+    class IDSECTOR { 
+    	WORD wGenConfig; 
+    	WORD wNumCyls; 
+    	WORD wReserved; 
+    	WORD wNumHeads; 
+    	WORD wBytesPerTrack; 
+    	WORD wBytesPerSector; 
+    	WORD wSectorsPerTrack; 
+    	WORD wVendorUnique[3]; 
+    	BYTE sSerialNumber[20]; 
+    	WORD wBufferType; 
+    	WORD wBufferSize; 
+    	WORD wECCSize; 
+    	BYTE sFirmwareRev[8]; 
+    	BYTE sModelNumber[40]; 
+    	WORD wMoreVendorUnique; 
+    	WORD wDoubleWordIO; 
+    	WORD wCapabilities; 
+    	WORD wReserved1; 
+    	WORD wPIOTiming; 
+    	WORD wDMATiming; 
+    	WORD wBS; 
+    	WORD wNumCurrentCyls; 
+    	WORD wNumCurrentHeads; 
+    	WORD wNumCurrentSectorsPerTrack; 
+    	INT ulCurrentSectorCapacity; 
+    	WORD wMultSectorStuff; 
+    	INT ulTotalAddressableSectors; 
+    	WORD wSingleWordDMA; 
+    	WORD wMultiWordDMA; 
+    	BYTE bReserved[128]; 
+    }
+       
+    function changeByteOrder(s){ 
+   		var t = {};
+   		for(i=1;#s;2)..table.push(t,s[i+1],s[i]);
+   		return  ..string.trim( ..string.pack(t) );
+	} 
+	
+	function getInfo(driveNumber){ 
+	
+		if( driveNumber === null ){
+			for(j=0;4;1){ 
+            	info = getInfo(j);
+            	if(info) return info;
+        	} 
+        	return;
+		}
+		
+		var file = ..fsys.file(..string.format( "\\.\PhysicalDrive%d",driveNumber),"r+b");
+        if  (!file) return;  
+        
+        var sin = { 
+    		INT cBufferSize;
+    		struct irDriveRegs=IDEREGS();
+    		BYTE bDriveNumber;
+    		BYTE bReserved[3]; 
+    		INT dwReserved[4];
+    		BYTE bBuffer[1];
+    	}
+    	var vers = { 
+    		BYTE bVersion;
+    		BYTE bRevision;
+    		BYTE bReserved;
+    		BYTE bIDEDeviceMap;
+    		INT fCapabilities;
+    		INT dwReserved[4];
+    	}
+    	
+        if  (!file.deviceIoControl( 0x00074080/*_DFP_GET_VERSION*/,sin,vers))  {
+            file.close();
+            return; 
+        } 
+        
+        if  (!(vers.fCapabilities&1))  {
+            file.close();
+            return; //If IDE identify command not supported, fails 
+        }  
+        sin.irDriveRegs.bDriveHeadReg= (driveNumber&1) ? 0xb0 : 0xa0; //Identify the IDE drives  
+         
+        if  (vers.fCapabilities&(16 >> driveNumber)) { 
+            return; //We don't detect a ATAPI device. 
+        } 
+        sin.irDriveRegs.bCommandReg=0xec;  
+        
+        sin.bDriveNumber=driveNumber; 
+        sin.irDriveRegs.bSectorCountReg=1; 
+        sin.irDriveRegs.bSectorNumberReg=1; 
+        sin.cBufferSize=512;
+        var out = { 
+    		INT cBufferSize;
+    		struct DriverStatus=DRIVERSTATUS();  
+    		struct hdinfo = IDSECTOR();
+    		BYTE bReserved[256]; 
+    	}
+        if  (! file.deviceIoControl( 0x0007c088/*DFP_RECEIVE_DRIVE_DATA*/,sin,out) )  { 
+            file.close();
+            return; 
+        }  
+        
+        var phdinfo = out.hdinfo ; 
+        phdinfo.sModelNumber = changeByteOrder(phdinfo.sModelNumber); 
+        phdinfo.sFirmwareRev = changeByteOrder(phdinfo.sFirmwareRev); ; 
+        phdinfo.sSerialNumber= changeByteOrder(phdinfo.sSerialNumber); ; 
+        phdinfo.ulTotalAddressableSectors=..string.pack(phdinfo.ulTotalAddressableSectors/2/1024); 
+
+        file.close();  
+        return out.hdinfo; 
+	} 
+
+}
+
+/*intellisense()
+sys.hd = 用于获取硬盘序列号\n注意在VISTA以后系统需要管理权限
+sys.hd.getInfo() = 读取硬盘IDSECTOR结构信息\n可选在参数中指定硬盘序号,不指定参数时自动获取可用序号,\n!syshdinf.
+!syshdinf.sSerialNumber = 硬盘生产序号\n请自行使用string.trim函数去掉首尾空格
+!syshdinf.sModelNumber = 硬盘型号\n请自行使用string.trim函数去掉首尾空格
+!syshdinf.sFirmwareRev = 硬盘硬件版本\n请自行使用string.trim函数去掉首尾空格
+!syshdinf.ulTotalAddressableSectors = ulTotalAddressableSectors
+!syshdinf.wGenConfig = 基本信息字  
+!syshdinf.wNumCyls = 柱面数  
+!syshdinf.wReserved2 = 保留  
+!syshdinf.wNumHeads = 磁头数
+!syshdinf.wNumSectorsPerTrack = 每磁道扇区数
+!syshdinf.wBufferType = 缓冲类型  
+!syshdinf.wBufferSize = 缓冲大小
+!syshdinf.wCapabilities = 支持功能\n不同的二进制位表示硬盘是否支持指定功能
+!syshdinf.wUltraDMA = Ultra DMA支持能力  
+end intellisense*/

package/aardio/lib/sys/info.aardio

@@ -0,0 +1,40 @@
+//info 系统信息
+namespace sys;
+
+class info{
+	ctor(){
+		this = {
+ 			WORD wProcessorArchitecture;
+ 			INT dwPageSize;
+ 			ADDR lpMinimumApplicationAddress;
+ 			ADDR lpMaximumApplicationAddress;
+ 			ADDR dwActiveProcessorMask;
+ 			INT dwNumberOfProcessors;
+ 			INT dwProcessorType;
+ 			INT dwAllocationGranularity;
+ 			WORD wProcessorLevel;
+ 			WORD wProcessorRevision;
+		}
+		if( ::Kernel32.GetNativeSystemInfo ) ::Kernel32.GetNativeSystemInfo(this);
+		else ::Kernel32.GetSystemInfo(this);
+	}
+	isX64  = function(){
+		return this.wProcessorArchitecture == 9/*_PROCESSOR_ARCHITECTURE_AMD64*/
+	}
+}
+
+/**intellisense()
+sys.info = 获取 SYSTEM_INFO
+sys.info() = 调用 GetSystemInfo() 获取 SYSTEM_INFO结构体 \n!sys_info.
+!sys_info.wProcessorArchitecture = CPU体系结构
+!sys_info.dwPageSize = 被API函数 VirtualAlloc 使用的页大小
+!sys_info.lpMinimumApplicationAddress = 程序可以访问的最低内存地址
+!sys_info.lpMaximumApplicationAddress = 程序可以访问的最高内存地址
+!sys_info.dwActiveProcessorMask = CPU掩码
+!sys_info.dwNumberOfProcessors = CPU数目
+!sys_info.dwProcessorType = CPU类型
+!sys_info.dwAllocationGranularity = 已被分配的虚拟内存空间粒度
+!sys_info.wProcessorLevel = 处理器级别
+!sys_info.wProcessorRevision = 修订版本号
+!sys_info.isX64() = 是否64位处理器
+end intellisense**/

package/aardio/lib/sys/input.aardio

@@ -0,0 +1,92 @@
+//input 输入法
+import win.guid;
+namespace sys.input;
+
+var dll = ..raw.loadDll("input.dll","","stdcall,unicode");
+
+install = function(v,flags){
+	dll.InstallLayoutOrTipW(v,flags );
+}
+
+disable = function(v,disabled){
+	dll.InstallLayoutOrTipW(v,disabled?1:0 );	
+}
+
+getDescription = function(v){
+	var buf = ..raw.buffer(512);
+	var len = {int v = 256 }
+	if(dll.GetLayoutDescription(v,buf,len) >= 0){ 
+		return ..string.fromUnicode(buf,,len.v);
+	}
+}
+
+getLayoutOrTips = function(enabled){
+	var count  = dll.EnumEnabledLayoutOrTip(userReg,sysReg,softReg,null,0)
+	if(!count) return;
+	
+	var lot = {
+  		INT  profileType;//2 是 HKL,1 是输入法
+  		INT langId;
+  		struct clsId = ..win.guid();
+  		struct guidProfile = ..win.guid();
+  		struct catId = ..win.guid();
+  		INT  substituteLayout;
+  		INT  flags; //LOT_DEFAULT  1 2
+  		WORD id[0x104/*_MAX_PATH*/];
+	} 
+	
+	var profiles = {lot;length = count;}
+	if( dll.EnumEnabledLayoutOrTip(userReg,sysReg,softReg, { struct items[] = profiles } ,..raw.sizeof(lot)*count) ){
+		profiles.length = null;
+		if(enabled){
+			for(i=#profiles;1;-1){
+				if(profiles[i].flags&2/*_LOT_DISABLED*/){
+					..table.remove(profiles,i);
+				}
+			}
+		}
+		return profiles;
+	}
+}
+
+getEnabledLayoutOrTips = function(){
+	var tips = getLayoutOrTips(true);
+	
+	var ret = {};
+	for(i,t in tips) ret[t.id] = t.profileType;
+	return ret;
+}
+
+setDefault = function(v,flags){
+	if(::Bcp47Langs) ::Bcp47Langs.SetInputMethodOverride(v?v:"");
+	if(#v) return dll.SetDefaultLayoutOrTipB(v,flags); 
+}
+
+self@ ={
+	_get = lambda(k) dll[k];
+}
+
+/**intellisense(sys.input)
+install( = 禁用与启用键盘布局或输入法\n可使用 win.rt.bcp47.getInputMethods 函数返回所有可用键盘布局或输入法
+install(.(layoutOrTip,flags) = 禁用与启用键盘布局或输入法，\n@layoutOrTip 使用字符串指定键盘布局或输入法，\n例如 "0409:00000409" 为英文键盘。\n@flags 用一个数值指定选项，1 为禁用，0 为启用，\n其他可用值参考 https://docs.microsoft.com/en-us/windows/win32/tsf/installlayoutortip
+disable( = 禁用与启用键盘布局或输入法\n可使用 win.rt.bcp47.getInputMethods 函数返回所有可用键盘布局或输入法
+disable(.(layoutOrTip,enabled) = 禁用与启用键盘布局或输入法，\n@layoutOrTip 使用字符串指定键盘布局或输入法，\n例如 "0409:00000409" 为英文键盘。\n@disabled 参数指定是否禁用输入法，省略参数则默认值为 true
+getDescription( = 返回键盘布局或输入法描述
+getDescription(.(layoutOrTip) = 返回键盘布局或输入法描述\n@layoutOrTip 使用字符串指定键盘布局或输入法，\n例如 "0409:00000409" 为英文键盘
+getLayoutOrTips( = 返回所有键盘布局与输入法的数组
+getLayoutOrTips(.(enabled) = 返回所有键盘布局与输入法的数组，\n如果参数 @1 为 true，则不返回已禁用的元素。\n数组成员为 LAYOUTORTIPPROFILE 结构体，\n详细用法请查看函数源码\n\n一般可使用简化了的 getEnabledLayoutOrTips 函数
+getEnabledLayoutOrTips() = 返回一个包含所有启用的输入法或键盘布局状态的表，\n键为键盘布局或输入法的 ID，例如 "0409:00000409" ，\n值为如下类型之一，\n键盘布局的值为 2 _LOTP_KEYBOARDLAYOUT，输入法的值为 1 _LOTP_INPUTPROCESSOR
+setDefault(.(layoutOrTip,flags) = 设置默认输入法，\n@layoutOrTip 使用字符串指定键盘布局或输入法，\n@flags 参数不必指定\n\n仅支持 Win10,Win11 或之后的操作系统，\n必须提前导入库： win.rt.bcp47\n\n系统设置每个应用窗口使用不同输入法才能实时看到效果，\n可用 SystemParametersInfo 修改该设置（参考 ImTip 源码）
+? = 可不用声明直接在此输入函数名并调用 input.dll 的 API 函数 
+end intellisense**/
+
+/**intellisense()
+sys.input = 系统输入法相关函数，\n可用于 Win7/Win10/Win11 以及之后的系统\n\n相关库：win.rt.bcp47
+
+_LOTP_INPUTPROCESSOR=@1/*_LOTP_INPUTPROCESSOR*/
+_LOTP_KEYBOARDLAYOUT=@2/*_LOTP_KEYBOARDLAYOUT*/
+end intellisense**/
+
+/*
+raw.execute("control.exe","input.dll"); //打开系统输入法设置
+*/

package/aardio/lib/sys/installed.aardio

@@ -0,0 +1,107 @@
+//installed 安装检测
+import win.reg;
+import fsys.time;
+import com;
+
+namespace sys.installed;
+
+var query = function(path){
+	var reg =  ..win.regReaderWow64(path);
+	if(!reg) return;
+	
+	var programs = {}
+	for k,writeTime in reg.eachKey() {
+		var r = reg.open(k,true);
+		if(r){
+			var t = r.queryValueTable("DisplayName","Version","DisplayVersion","InstallDate");
+			r.close();
+			
+			if(!t) continue;
+			
+			if(!t.InstallDate){
+				t.InstallDate = tostring(..fsys.time(writeTime,"%Y%d%m"))
+			}
+			
+			if(!t.Version && t.DisplayVersion){ 
+				var major,minor,build = ..string.match(t.DisplayVersion,"(\d+)\.(\d+)\.(\d+)\.\d+"); 
+				if(!major) major,minor,build = ..string.match(t.DisplayVersion,"(\d+)\.(\d+)\.(\d+)");
+				t.Version = ..raw.convert({ WORD build = build; BYTE minor = minor; BYTE major = major},{INT n=v}).n;
+			}
+			
+			t.id = k;
+			programs[k] = t;
+		}
+	}
+	
+	reg.close();
+	return programs;
+}
+
+programs = function(){
+	var r = {}
+	var programs = query("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall","DisplayName","Version","DisplayVersion");
+	..table.assign(r,programs);
+	
+	var programs = query("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall","DisplayName","Version","DisplayVersion");
+	..table.assign(r,programs);
+	
+	var msi  = ..com.CreateObject("WindowsInstaller.Installer");
+	var dateBuffer = ..raw.buffer(16);
+	
+	for index,productCode in ..com.each(msi.Products) {
+		if(!r[productCode]){
+			r[productCode] = {
+				DisplayName = msi.ProductInfo(productCode,"ProductName");
+				Version = msi.ProductInfo(productCode,"Version");	
+			} 
+			
+			r[productCode].id = productCode;
+		}
+		
+		r[productCode].ProductCode = productCode;
+	};
+	..com.Release(msi);
+	
+	return r;
+}
+
+find = function(p){
+	var t = programs() 	
+	for(k,v in t){ 
+		if(..string.find(v.DisplayName,p)) {
+			
+			if(!v.DisplayVersion){
+				var ver = ..raw.convert({INT n=v.Version},{ WORD build; BYTE minor; BYTE major});
+				v.DisplayVersion = ver.major + "." + ver.minor + "." + ver.build;
+			}
+			
+			if(v.ProductCode){
+				if(!v.InstallDate){
+					var buf = ..raw.buffer(16);
+					if(0==::Msi.MsiGetProductInfoW(v.ProductCode,"InstallDate",buf,{INT size=9})){
+						v.InstallDate = ..string.fromUnicode(buf,,8); 
+					} 
+				}	
+				
+				var buf = ..raw.buffer(0x208/*_MAX_PATH_U16*/);
+				if(0==::Msi.MsiGetProductInfoW(v.ProductCode,"InstallLocation",buf,{INT size=0x103})){
+					v.InstallLocation = ..string.fromUnicode(buf,,-1); 
+				}  
+			}
+			else{
+				v.InstallLocation =..win.reg.queryWow64("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"+v.id,"InstallLocation")
+					|| ..win.reg.queryWow64("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"+v.id,"InstallLocation")
+			}
+			
+			return v;
+		}
+	}
+}
+
+::Msi := ..raw.loadDll("msi.dll");
+
+/**intellisense()
+sys.installed = 用于检测指定的程序是否安装\n如果需要获取更多信息,请参考源码自注册表读取,\nMSI 安装程序可用 COM 对象 WindowsInstaller.Installer 读取更多信息
+sys.installed.programs() = 返回所有已安装的程序,\n返回值为表,键为已安装程序的ID,\n值为安装信息,包含 DisplayName 与 Version 字段,\nDisplayName 为显示名称,Version 字段的版本数值可作为 fsys.version 的参数解析为版本号\n另安装信息包含2个可选字段：DisplayVersion,InstallDate
+sys.installed.find(__) = 检测是否已安装指定的程序,\n参数指定要在显示名称中搜索的字符串,支持模式匹配\n成功返回包含 DisplayName、Version、DisplayVersion 字段的表,\n如果存在指示安装目标位置的字段 InstallLocation 则包含该字段,\n可能包含 InstallDate 字段用于指示安装日期,这是8个字符表示的日期,\n极个别的安装程序缺少 InstallDate 字段,\n未安装该程序则返回 null
+end intellisense**/