aview-app 1.0.2

package/aardio/lib/com/interface/IApplicationAssociationRegistration.aardio

@@ -0,0 +1,359 @@
+import win.reg;
+import com.interface; 
+import com.activeX;
+
+namespace com.interface {
+
+	class IApplicationAssociationRegistration{
+		ctor( ){
+			this = ..com.interface.IUnknown(); 
+		}; 
+		pointer QueryCurrentDefault = "int(ustring pszQuery,int atQueryType,int alQueryLevel,pointer &ppszAssociation)"; 
+        pointer QueryAppIsDefault = "int(ustring pszQuery,int atQueryType,int alQueryLevel,ustring pszAppRegistryName,bool &pfDefault)"; 
+        pointer QueryAppIsDefaultAll = "int(int alQueryLevel,ustring pszAppRegistryName,bool &pfDefault)"; 
+        pointer SetAppAsDefault = "int(ustring pszAppRegistryName,ustring pszSet,int atSetType)"; 
+        pointer SetAppAsDefaultAll = "int(ustring pszAppRegistryName)"; 
+        pointer ClearUserAssociations= "int()";
+	}
+	IApplicationAssociationRegistration.IID = "{4e530b0a-e611-4c77-a3ac-9031d022281b}";
+	
+	var getAssociationInfoLocal = function(appName,query,queryType){
+		if( query === null ) query = "http";
+		if( queryType === null ) queryType = query[1] != '.'# ? 1/*_AT_URLPROTOCOL*/ : 0/*_AT_FILEEXTENSION*/ ;
+		
+		var reg = ..win.regReader("HKEY_LOCAL_MACHINE\SOFTWARE\RegisteredApplications");
+		if(!reg)  return;
+		
+		var assocName;
+    	var regPath = reg.queryValue(appName); reg.close();
+    	if( #regPath ) { 
+    		var regApp;
+			if( queryType == 1/*_AT_URLPROTOCOL*/ ){
+				regApp = ..win.regReader("HKEY_LOCAL_MACHINE\" + regPath + "\URLAssociations");  
+			}
+			elseif( queryType == 0/*_AT_FILEEXTENSION*/ ){
+				regApp = ..win.regReader("HKEY_LOCAL_MACHINE\" + regPath + "\FileAssociations")
+				
+			} 
+			if( regApp ) { 
+				assocName = regApp.queryValue(query);
+				regApp.close(); 
+			}
+		}
+		if( !assocName ){
+			if( appName = "Internet Explorer"){ 
+				if( queryType == 1/*_AT_URLPROTOCOL*/ ){
+					if( ..string.cmp(query,"http") == 0 ){
+						assocName = "IE.HTTP"; 
+					}
+					elseif( ..string.cmp(query,"httpS") == 0 ){
+						assocName = "IE.HTTPS"; 
+					}
+					elseif( ..string.cmp(query,"ftp") == 0 ){
+						assocName = "IE.FTP"; 
+					} 
+				}
+				if( !assocName) assocName = "htmlfile";
+			}
+			else{ return; };
+		}
+
+		var shCmdline,assocIcon; 
+		var reg = ..win.regReader("HKEY_CLASSES_ROOT\" + assocName + "\shell\open\command")
+		if( reg ){
+			shCmdline = reg.queryValue("");
+			reg.close();
+		}
+	
+		var reg = ..win.regReader("HKEY_CLASSES_ROOT\" + assocName + "\DefaultIcon")
+		if( reg ){
+			assocIcon = reg.queryValue("");
+			reg.close();
+		}
+
+		if( assocName && shCmdline )
+			return { name = assocName;command = shCmdline;icon = assocIcon }; 
+	} 
+	var setAppAsDefaultLocal = function(appName,pszSet,setType,predkey){
+		if( pszSet === null ) pszSet = "http"; 
+		if( setType === null ) setType = pszSet[1] != '.'# ? 1/*_AT_URLPROTOCOL*/ : 0/*_AT_FILEEXTENSION*/ ;
+
+		var assocInfo = getAssociationInfoLocal(appName,pszSet,setType);
+		if( ! assocInfo ) return;
+		
+		if( setType == 1/*_AT_URLPROTOCOL*/ ){
+			var reg = ..win.reg( predkey + "\" + pszSet + "\shell\open\command" )
+    		if(reg){ 
+        		reg.setSzValue("", assocInfo.command )
+        		reg.close();
+    		}
+    		
+    		if(assocInfo.icon){
+    			var reg = ..win.reg( predkey + "\" + pszSet + "\DefaultIcon");
+    			if( reg ){
+    				var ico = assocInfo.icon;
+    				if( ..string.indexOf(ico,"%") ){ //动态图标
+    					import string.cmdline;
+    					var args = ..string.cmdline( assocInfo.command ); 
+    					if( args[0] ) ico = ..string.format('"%s",0', args[0]);
+    				}
+    				reg.setSzValue("",ico);
+    				reg.close(); 
+    			}
+    		}
+    		
+    		//修正错误提示:"windows找不到HTTP"
+    		var reg = ..win.reg( predkey + "\" + pszSet + "\shell\open\ddeexec" )
+    		if( reg ){
+    			if( "Internet Explorer" == appName ){
+    				reg.setSzValue("",'"%1",,-1,0,,,,')
+    			}
+    			else {
+    				reg.setSzValue("",'');
+    			} 
+    		}
+    	}
+    	elseif( setType == 0/*_AT_FILEEXTENSION*/ ){
+			var reg = ..win.reg( predkey + "\" + pszSet )
+    		if(reg){
+        		reg.setSzValue("", assocInfo.name );
+        		reg.close();
+    		}
+    	}
+	}
+	
+	import string.cmdline;
+	var lstBrowserLocal = function(){ 
+		var apps = {}
+		var regClients  = ..win.regReader("HKEY_LOCAL_MACHINE\SOFTWARE\Clients\StartMenuInternet",true)
+		for(keyname,writetime in regClients.eachKey() ){
+			var regBrowser = regClients.openReg(keyname); 
+			var appName = regBrowser.queryValue("");
+ 			if(!appName) continue;
+			var regCommand  = regBrowser.openReg( "shell\open\command",true)
+			if( regCommand ){
+				var path = regCommand.queryValue("");
+				var cmdline = ..string.cmdline( path); 
+	
+				if( ..io.exist(cmdline[0]) ){
+					apps[appName] = cmdline[0]; 
+				}
+				elseif(  ..io.exist( path ) ){
+					apps[appName] = path 
+				} 
+				regCommand.close();
+			}
+			regBrowser.close()
+		}
+		if( !apps["Internet Explorer"] ){
+			var regApps  = ..win.regReader("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE",true)
+			
+			if( regApps ) {
+				apps["Internet Explorer"] = regApps.queryValue("");
+				regApps.close();
+			}
+		}
+		regClients.close() 
+		return apps;
+	}
+	
+	var changeNotifyLocal = function(){
+		::Shell32.SHChangeNotify(0x8000000/*_SHCNE_ASSOCCHANGED*/,0,0,0);
+	}
+	
+	IApplicationAssociationRegistration.create = function(){
+		var asso;
+		try{
+			asso = create("{591209c7-767b-42b2-9fba-44ee4615f2c7}",IApplicationAssociationRegistration );
+		}
+		if( !asso ){
+			return {
+				changeNotify = changeNotifyLocal;
+				getAssociationInfo = getAssociationInfoLocal;
+				lstBrowser = lstBrowserLocal;
+				queryAppIsDefault = function(query,queryType,queryLevel,appName){
+					if( query === null ) query = "http"; 
+					if( queryType === null ) queryType = query[1] != '.'# ? 1/*_AT_URLPROTOCOL*/ : 0/*_AT_FILEEXTENSION*/ ;
+					if( queryLevel === null ) queryLevel = 1/*_AL_EFFECTIVE*/;
+					
+					var predkey = "HKEY_CLASSES_ROOT";
+					if( queryLevel == 2/*_AL_USER*/ ) predkey = "HKEY_CURRENT_USER\Software\Classes";
+					elseif( queryLevel == 2/*_AL_USER*/ ) predkey = "HKEY_LOCAL_MACHINE\SOFTWARE\Classes";
+					
+					var assocInfo = getAssociationInfoLocal(appName,query,queryType);
+					if( !assocInfo ) return;
+					
+					if( queryType == 0/*_AT_FILEEXTENSION*/ ){
+    					var reg = ..win.reg( predkey + "\" + query,true)
+    					if(reg){
+        					var assocName = reg.queryValue("") 
+        					if( #assocName ) query = assocName;
+        					reg.close();
+        					
+        					if( ..string.cmp(assocName,assocInfo.name ) == 0 ) return true;
+    					}
+    				}
+    				
+					var curShellCmd;
+					var reg = ..win.reg( predkey + "\" + query + "\shell\open\command",true)
+    				if( reg ){
+        				curShellCmd = reg.queryValue("")
+        				reg.close();
+    				}
+    				if( ! #curShellCmd ) return;
+    				if( ..string.cmp(curShellCmd,assocInfo.command ) == 0 ) return true;
+    				  
+    				import ..string.cmdline;
+    				var argsCur = ..string.cmdline( curShellCmd ); 
+    				var argsApp = ..string.cmdline( assocInfo.command );
+    				if( argsCur && argsApp ){   
+    					if(  ..fsys.path.cmp(argsCur[0],argsApp[0]) == 0 ) return true;
+    				} 
+				};
+				queryAppIsDefaultAll = function(level,appName){ 
+					return owner.queryAppIsDefault(".htm",,level,appName) 
+						&& owner.queryAppIsDefault(".html",,level,appName) 
+						&& owner.queryAppIsDefault("http",,level,appName) 
+						&& owner.queryAppIsDefault("https",,level,appName) 
+						&& owner.queryAppIsDefault("ftp",,level,appName);
+				};
+				queryCurrentDefault = function(query,queryType,queryLevel){
+					if( query === null ) query = "http";
+					if( queryType === null ) queryType = query[1] != '.'# ? 1/*_AT_URLPROTOCOL*/ : 0/*_AT_FILEEXTENSION*/ ;
+					if( queryLevel === null ) queryLevel = 1/*_AL_EFFECTIVE*/;
+					
+					var predkey = "HKEY_CLASSES_ROOT";
+					if( queryLevel == 2/*_AL_USER*/ ) predkey = "HKEY_CURRENT_USER\Software\Classes";
+					elseif( queryLevel == 2/*_AL_USER*/ ) predkey = "HKEY_LOCAL_MACHINE\SOFTWARE\Classes";
+					if( queryType == 1/*_AT_URLPROTOCOL*/ ){
+						var reg = ..win.reg( predkey + "\" + query + "\shell\open\command",true)
+    					if(reg){
+        					var path = reg.queryValue("")
+        					reg.close();
+        					return path;
+    					}
+    					return;
+    				}
+    				elseif( queryType == 0/*_AT_FILEEXTENSION*/ ){
+						var reg = ..win.reg( predkey + "\" + query,true)
+    					if(reg){
+        					var path = reg.queryValue("")
+        					reg.close();
+        					return path;
+    					}
+    					return;
+    				}
+				};
+				setAppAsDefault = function(appName,pszSet,setType,pred){
+					if( pred ) pred = ..string.trimright(pred,"\");
+					setAppAsDefaultLocal(appName,pszSet,setType,pred : "HKEY_CURRENT_USER\Software\Classes");
+				}
+				setAppAsDefaultAll = function(appName,pred){
+					if( pred ) pred = ..string.trimright(pred,"\");
+					setAppAsDefaultLocal(appName,".htm", 0/*_AT_FILEEXTENSION*/,pred : "HKEY_CURRENT_USER\Software\Classes")
+					setAppAsDefaultLocal(appName,".html", 0/*_AT_FILEEXTENSION*/,pred : "HKEY_CURRENT_USER\Software\Classes")
+					setAppAsDefaultLocal(appName,"http", 1/*_AT_URLPROTOCOL*/,pred : "HKEY_CURRENT_USER\Software\Classes")
+					setAppAsDefaultLocal(appName,"https", 1/*_AT_URLPROTOCOL*/,pred : "HKEY_CURRENT_USER\Software\Classes")
+					setAppAsDefaultLocal(appName,"ftp", 1/*_AT_URLPROTOCOL*/,pred : "HKEY_CURRENT_USER\Software\Classes")
+					if( "Internet Explorer" == appName ){
+						var reg = ..win.regReader((pred : "HKEY_CURRENT_USER\Software\Classes" ) + "\InternetShortcut\shell\open\command] ");
+						if( reg ){ 
+							reg.setSzValue("","rundll32.exe shdocvw.dll,OpenURL %l");
+							reg.close();
+						};
+						..com.activeX.install("shdocvw.dll",true);//仅XP该DLL可注册修复关联
+					}
+					owner.changeNotify();
+				}
+				clearUserAssociations = function(){
+					var reg = ..win.regReader("HKEY_CURRENT_USER\Software\Classes");
+					if(!reg) return;
+					reg.delKeyTree(".htm");
+					reg.delKeyTree(".html");
+					reg.delKeyTree("http");
+					reg.delKeyTree("https");
+					reg.delKeyTree("ftp");
+					reg.close();
+					owner.changeNotify();
+				};
+			} 
+		}
+		with asso {
+			changeNotify = changeNotifyLocal;
+			getAssociationInfo = getAssociationInfoLocal;
+			lstBrowser = lstBrowserLocal;
+			queryCurrentDefault = function(query,queryType,queryLevel){
+				if( query === null ) query = "http";
+				if( queryType === null ) queryType = query[1] != '.'# ? 1/*_AT_URLPROTOCOL*/ : 0/*_AT_FILEEXTENSION*/ ;
+				if( queryLevel === null ) queryLevel = 1/*_AL_EFFECTIVE*/;
+				
+				var hr,ptr = QueryCurrentDefault(..string.toUnicode(query),queryType,queryLevel);
+				if(  (hr)<0/*_FAILED*/ ) return;
+				
+				if( ptr ){
+					var prog =  ..string.fromUnicode(ptr,,true);
+					::CoTaskMemFree(ptr);
+					return prog;
+				}
+			};
+			queryAppIsDefault = function(query,queryType,queryLevel,appName){
+				if( query === null ) query = "http";
+				if( queryType === null ) queryType = query[1] != '.'# ? 1/*_AT_URLPROTOCOL*/ : 0/*_AT_FILEEXTENSION*/ ;
+				if( queryLevel === null ) queryLevel = 1/*_AL_EFFECTIVE*/;
+				
+				var hr,default = QueryAppIsDefault(..string.toUnicode(query),queryType,queryLevel,..string.toUnicode(appName) );
+				if(  (hr)<0/*_FAILED*/ ) return;
+				return default;
+			};
+			queryAppIsDefaultAll = function(queryLevel,appName){
+				if( queryLevel === null ) queryLevel = 1/*_AL_EFFECTIVE*/;
+				
+				var hr,default = QueryAppIsDefaultAll( queryLevel,..string.toUnicode(appName) );
+				if(  (hr)<0/*_FAILED*/ ) return;
+				return default;
+				
+			}
+			setAppAsDefault = function(appName,pszSet,setType){
+				if( pszSet === null ) pszSet = "http";
+				if( setType === null ) setType = pszSet[1] != '.'# ? 1/*_AT_URLPROTOCOL*/ : 0/*_AT_FILEEXTENSION*/ ;
+				
+				var hr,default = SetAppAsDefault( ..string.toUnicode(appName),..string.toUnicode(pszSet),setType );
+				if ( (hr)>=0/*_SUCCEEDED*/) return true; 
+			}
+			setAppAsDefaultAll = function(appName){  
+				var hr,default = SetAppAsDefaultAll( ..string.toUnicode(appName) );
+				if ( (hr)>=0/*_SUCCEEDED*/) return true;
+			}
+			clearUserAssociations = function(){
+				var hr = ClearUserAssociations();
+				return  (hr)>=0/*_SUCCEEDED*/; 	
+			};
+		
+		}
+		return asso;
+	}
+} 
+
+/**intellisense()
+com.interface.IApplicationAssociationRegistration = 主要用于默认浏览器设置\n普通文件关联不必要调用此接口
+com.interface.IApplicationAssociationRegistration.create() = 创建文件关联管理\n!IApplicationAssociationRegistration.
+!IApplicationAssociationRegistration.lstBrowser() = 返回已安装的浏览器应用程序ID以及路径对应表
+!IApplicationAssociationRegistration.setAppAsDefault(.("Internet Explorer","http") = 设置指定协议或后缀名的文件关联\nwin7可用,xp仅兼容式支持IE,win8已禁止使用此函数
+!IApplicationAssociationRegistration.setAppAsDefaultAll("Internet Explorer") = 恢复默认浏览器关联\nwin7可用,xp仅兼容式支持IE,win8已禁止使用此函数
+!IApplicationAssociationRegistration.queryAppIsDefault("http",,,"Internet Explorer") = 检测浏览器是否关联指定的协议或后缀名\n后缀名首字符追必须是圆点
+!IApplicationAssociationRegistration.queryCurrentDefault("http") = 返回协义关联的启动命令行或后缀名关联的文档类型\n后缀名首字符追必须是圆点
+!IApplicationAssociationRegistration.changeNotify() = 刷新文件关联 
+!IApplicationAssociationRegistration.getAssociationInfo(.("Internet Explorer","http") = 返加文件关联信息\n!IAppAssociationInfo.
+!IApplicationAssociationRegistration.clearUserAssociations() = 清除当前用户文件与协议关联并恢复公用设置
+!IApplicationAssociationRegistration.getAssociationInfo() = !IAppAssociationInfo.
+!IAppAssociationInfo.name = 关联名
+!IAppAssociationInfo.command = 命令行
+!IAppAssociationInfo.icon = 图标
+_AT_FILEEXTENSION=@0/*_AT_FILEEXTENSION*/
+_AT_URLPROTOCOL=@1/*_AT_URLPROTOCOL*/
+_AT_STARTMENUCLIENT=@2/*_AT_STARTMENUCLIENT*/
+_AT_MIMETYPE=@3/*_AT_MIMETYPE*/
+_AL_MACHINE=@0/*_AL_MACHINE*/
+_AL_EFFECTIVE=@1/*_AL_EFFECTIVE*/
+_AL_USER=@2/*_AL_USER*/
+end intellisense**/

package/aardio/lib/com/interface/IAudioMeterInformation.aardio

@@ -0,0 +1,17 @@
+import com.interface; 
+namespace  com.interface;
+
+class IAudioMeterInformation{
+	ctor(){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	pointer GetPeakValue = "int(float &peak)";
+	pointer GetMeteringChannelCount = "int(INT &count)"; 
+	pointer GetChannelsPeakValues = "int(INT count,struct &peak)"; 
+	pointer QueryHardwareSupport = "int(INT &mask)"; 
+}
+IAudioMeterInformation.IID = "{C02216F6-8C67-4B5B-9D00-D008E73E0064}";
+
+/**intellisense()
+com.interface.IAudioMeterInformation = 获取实时音量信息,仅支持WIN7以及WIN7以上系统\n此接用法请参考sys.audioVolume扩展库源码
+end intellisense**/

package/aardio/lib/com/interface/IClassFactory.aardio

@@ -0,0 +1,26 @@
+import com.interface; 
+namespace  com.interface;
+
+class IClassFactory{
+	ctor(  ){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	pointer CreateInstance = "int(pointer pUnkownOuter,struct iid,pointer& ppv)";
+	pointer LockServer = "int(bool bLock)"; 
+}
+IClassFactory.IID = "{00000001-0000-0000-C000-000000000046}";
+
+ 
+IClassFactory.Query = function(obj){
+	return ..com.interface(obj,IClassFactory)
+}   
+
+/**intellisense()
+com.interface.IClassFactory.Query(__/*com对象或指针*/) = 查询并创建IClassFactory接口
+!IClassFactory.AddRef() = 引用计数加一,返回引用计数
+!IClassFactory.Release() = 引用计数减一,返回引用计数
+!IClassFactory.QueryInterface(__/*接口数*/) = 参数是接口类,参考com.interface.IUnknown源码
+!IClassFactory.CreateInstance(__) =  
+!IClassFactory.LockServer(__) =  
+com.interface.IClassFactory.Query() = !IClassFactory. 
+end intellisense**/

package/aardio/lib/com/interface/IClassFactory2.aardio

@@ -0,0 +1,47 @@
+import win.ole;
+import com.interface; 
+namespace com.interface;
+
+class IClassFactory2{
+	ctor(  ){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	pointer CreateInstance = "int(pointer pUnkownOuter,struct iid,pointer& ppv)";
+	pointer LockServer = "int(bool bLock)"; 
+	pointer GetLicInfo = "int(struct &pLicInfo)"; 
+	pointer RequestLicKey__ = "int(INT dwReserved,ptr &pBstrKey)"; 
+	pointer CreateInstanceLic__ = "int(pointer pUnkownOuter,pointer pUnkReserved,struct iid,ptr bstrKey,pointer& ppv)"; 	
+	CreateInstanceLic = function(pUnkownOuter,pUnkReserved,iid,strKey){
+		var bstrKey = ::SysAllocString(strKey);
+		var hr,ppv = owner.CreateInstanceLic__(pUnkownOuter,pUnkReserved,iid,bstrKey);
+		::SysFreeString(bstrKey);
+		return hr,ppv;
+	}
+	RequestLicKey = function(){
+		var hr,bstrKey = owner.RequestLicKey__(0);
+		if(bstrKey){
+			var strKey = ..raw.str(bstrKey,true);
+			::SysFreeString(bstrKey); 
+			return strKey;
+		}
+	} 
+}
+
+IClassFactory2.IID = "{B196B28F-BAB4-101A-B69C-00AA00341D07}";
+
+ 
+IClassFactory2.Query = function(obj){
+	return ..com.interface(obj,IClassFactory2)
+}  
+           
+/**intellisense()
+com.interface.IClassFactory2.Query(__/*com对象或指针*/) = 查询并创建IClassFactory2接口
+!IClassFactory2.AddRef() = 引用计数加一,返回引用计数
+!IClassFactory2.Release() = 引用计数减一,返回引用计数
+!IClassFactory2.QueryInterface(__/*接口数*/) = 参数是接口类,参考com.interface.IUnknown源码
+!IClassFactory2.CreateInstance(__) = 注册
+!IClassFactory2.CreateInstanceLic(__) =  注册
+!IClassFactory2.RequestLicKey() =  生成注册码,无参数
+!IClassFactory2.LockServer(__) =  
+com.interface.IClassFactory2.Query() = !IClassFactory2. 
+end intellisense**/

package/aardio/lib/com/interface/IComThreadingInfo.aardio

@@ -0,0 +1,37 @@
+
+import com.interface; 
+namespace  com.interface;
+
+class IComThreadingInfo{
+	ctor(){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	pointer GetCurrentApartmentType = "int(int &pAptType)";
+	pointer GetCurrentThreadType = "int(int &pThreadType)";
+	pointer GetCurrentLogicalThreadId = "int(struct &pguidLogicalThreadId)"; 
+	pointer SetCurrentLogicalThreadId = "int(struct rguid)"; 
+}
+IComThreadingInfo.IID = "{000001ce-0000-0000-C000-000000000046}";
+
+CoGetContextToken = ::Ole32.api("CoGetContextToken","int(pointer &pToken)" );
+IComThreadingInfo.Query = function(){
+	var hr,token = CoGetContextToken();//MSDN: Don't release the returned pointer
+	if(  (hr)>=0/*_SUCCEEDED*/ ){
+		return  ..com.interface(token,IComThreadingInfo)
+	} 
+}   
+
+/**intellisense()
+com.interface.IComThreadingInfo() = 创建IComThreadingInfo接口
+com.interface.IComThreadingInfo.Query() = 返回线程IComThreadingInfo对象,无需参数,\n!IComThreadingInfo.
+!IComThreadingInfo.GetCurrentApartmentType(0) = 返回线程套间类型
+!IComThreadingInfo.GetCurrentThreadType(0) = 返回 _THDTYPE_BLOCKMESSAGES 表示当前线程没有消息循环(MTA)\n返回 _THDTYPE_PROCESSMESSAGES 表示线程有消息循环(STA)
+
+_APTTYPE_CURRENT=@-1/*_APTTYPE_CURRENT*/
+_APTTYPE_STA=@0/*_APTTYPE_STA*/
+_APTTYPE_MTA=@1/*_APTTYPE_MTA*/
+_APTTYPE_NA=@2/*_APTTYPE_NA*/
+_APTTYPE_MAINSTA=@3/*_APTTYPE_MAINSTA*/
+_THDTYPE_BLOCKMESSAGES=@0/*_THDTYPE_BLOCKMESSAGES*/
+_THDTYPE_PROCESSMESSAGES=@1/*_THDTYPE_PROCESSMESSAGES*/
+end intellisense**/

package/aardio/lib/com/interface/IDirect3D9.aardio

@@ -0,0 +1,188 @@
+import com.interface; 
+namespace com.interface;
+
+class IDirect3D9{
+
+	ctor () {
+		this = ..com.interface.IUnknown();
+	};
+	pointer RegisterSoftwareDevice = "int(pointer pInitializeFunction)";
+	pointer GetAdapterCount = "INT()";
+	pointer GetAdapterIdentifier__ = "int(INT adapter,INT flags,struct &pIdentifier)";
+	pointer GetAdapterModeCount = "INT(INT adapter,int format)";
+	pointer EnumAdapterModes = "int(INT adapter,int format,int mode,struct& pMode)";
+	pointer GetAdapterDisplayMode = "int(INT adapter,struct& pMode )";
+	pointer CheckDeviceType = "int(INT adapter,int DevType,INT adapterFormat,int BackBufferFormat,BOOL bWindowed)";
+	pointer CheckDeviceFormat = "int(INT adapter,int DeviceType,INT adapterFormat,INT Usage,int RType,int CheckFormat)";
+	pointer CheckDeviceMultiSampleType = "int(INT adapter,int DeviceType,int SurfaceFormat,bool Windowed,int MultiSampleType,INT& pQualityLevels)";
+	pointer CheckDepthStencilMatch = "int(INT adapter,int DeviceType,INT adapterFormat,int RenderTargetFormat,int DepthStencilForma)";
+	pointer CheckDeviceFormatConversion = "int(INT adapter,int DeviceType,int SourceFormat,int TargetForma)";
+	pointer GetDeviceCaps__ = "int(INT adapter,int DeviceType,struct &pCaps)";
+	pointer GetAdapterMonitor = "pointer(INT adapter)";
+	pointer CreateDevice = "int(INT adapter,INT DeviceType,int hFocusWindow,INT BehaviorFlags,struct& pPresentationParameters,pointer& ppReturnedDeviceInterface)";  
+
+	GetAdapterIdentifier = function(adapter,flags){
+		var info = D3DADAPTER_IDENTIFIER9();
+		if( owner.GetAdapterIdentifier__(adapter : 0,flags : 0,info) >=0/*_SUCCEEDED*/ ){
+			info.Description = ..string.str(info.Description);
+			info.Driver = ..string.str(info.Driver);
+			info.DeviceName = ..string.str(info.DeviceName);
+			return info;
+		}
+	};
+	GetDeviceCaps = function(adapter,deviceType){
+		var caps = D3DCAPS9();
+		if( owner.GetDeviceCaps__(adapter : 0,deviceType : 1/*_D3DDEVTYPE_HAL*/,caps) >=0/*_SUCCEEDED*/ ){
+			return caps;
+		}
+	};
+}
+
+namespace IDirect3D9{
+	IID = "{81BDCBCA-64D4-426d-AE8D-AD0147F4275C}";
+	
+	class D3DADAPTER_IDENTIFIER9{
+    	BYTE Driver[512];
+    	BYTE Description[512];
+    	BYTE DeviceName[32]; 
+    	struct DriverVersion= {
+    		INT HighPart;
+    		int LowPart;
+    	}
+    	INT VendorId;
+    	INT DeviceId;
+    	INT SubSysId;
+    	INT Revision; 
+    	struct DeviceIdentifier = ..win.guid(); 
+    	INT WHQLLevel; 
+	} ; 
+	
+	var D3DVSHADERCAPS2_0 = class {
+  		INT Caps;
+  		int DynamicFlowControlDepth;
+  		int NumTemps;
+  		int StaticFlowControlDepth;
+	} 
+	
+	class D3DCAPS9{
+  		int DeviceType;
+  		INT AdapterOrdinal;
+  		INT Caps;
+  		INT Caps2;
+  		INT Caps3;
+  		INT PresentationIntervals;
+  		INT CursorCaps;
+  		INT DevCaps;
+  		INT PrimitiveMiscCaps;
+  		INT RasterCaps;
+  		INT ZCmpCaps;
+  		INT SrcBlendCaps;
+  		INT DestBlendCaps;
+  		INT AlphaCmpCaps;
+  		INT ShadeCaps;
+  		INT TextureCaps;
+  		INT TextureFilterCaps;
+  		INT CubeTextureFilterCaps;
+  		INT VolumeTextureFilterCaps;
+  		INT TextureAddressCaps;
+  		INT VolumeTextureAddressCaps;
+  		INT LineCaps;
+  		INT MaxTextureWidth;
+  		INT MaxTextureHeight;
+  		INT MaxVolumeExtent;
+  		INT MaxTextureRepeat;
+  		INT MaxTextureAspectRatio;
+  		INT MaxAnisotropy;
+  		float MaxVertexW;
+  		float GuardBandLeft;
+  		float GuardBandTop;
+  		float GuardBandRight;
+  		float GuardBandBottom;
+  		float ExtentsAdjust;
+  		INT StencilCaps;
+  		INT FVFCaps;
+  		INT TextureOpCaps;
+  		INT MaxTextureBlendStages;
+  		INT MaxSimultaneousTextures;
+  		INT VertexProcessingCaps;
+  		INT MaxActiveLights;
+  		INT MaxUserClipPlanes;
+  		INT MaxVertexBlendMatrices;
+  		INT MaxVertexBlendMatrixIndex;
+  		float MaxPointSize;
+  		INT MaxPrimitiveCount;
+  		INT MaxVertexIndex;
+  		INT MaxStreams;
+  		INT MaxStreamStride;
+  		INT VertexShaderVersion;
+  		INT MaxVertexShaderConst;
+  		INT PixelShaderVersion;
+  		float PixelShader1xMaxValue;
+  		INT DevCaps2;
+  		float MaxNpatchTessellationLevel;
+  		INT Reserved5;
+  		INT MasterAdapterOrdinal;
+  		INT AdapterOrdinalInGroup;
+  		INT NumberOfAdaptersInGroup;
+  		INT DeclTypes;
+  		INT NumSimultaneousRTs;
+  		INT StretchRectFilterCaps;
+  		struct VS20Caps = D3DVSHADERCAPS2_0();
+  		struct PS20Caps = D3DVSHADERCAPS2_0();
+  		INT VertexTextureFilterCaps;
+  		INT MaxVShaderInstructionsExecuted;
+  		INT MaxPShaderInstructionsExecuted;
+  		INT MaxVertexShader30InstructionSlots; 
+  		INT MaxPixelShader30InstructionSlots;
+	};
+}
+
+try {
+
+	::D3d9 := ..raw.loadDll("d3d9.dll");
+	::Direct3DCreate9 := D3d9.api("Direct3DCreate9","pointer(INT SDKVersion)"); 
+	
+	IDirect3D9.Create = function( version = 32/*_D3D_SDK_VERSION*/ ){
+		var pD3d = Direct3DCreate9(version/*_D3D_SDK_VERSION*/); 
+		if(pD3d) {
+			var d3d = ..com.interface(pD3d,IDirect3D9);
+			..com.Release( pD3d );
+			return d3d;
+		}
+	}
+}
+catch(e){
+	IDirect3D9.Create = function(){
+		
+	} 
+}
+
+/**intellisense()
+com.interface.IDirect3D9 = IDirect3D9
+com.interface.IDirect3D9.Create(32) = 创建接口,参数指定版本号
+!IDirect3D9.AddRef() = 引用计数加一,返回引用计数
+!IDirect3D9.Release() = 引用计数减一,返回引用计数
+!IDirect3D9.QueryInterface(__/*接口数*/) = 参数是接口类,参考com.interface.IUnknown源码
+!IDirect3D9.GetAdapterCount() =  得到显卡数量
+!IDirect3D9.GetDeviceCaps() = !D3DCAPS9.
+!IDirect3D9.GetDeviceCaps(.(adapter,deviceType) =  返回D3DCAPS9结构体包含指定设备的性能参数\nadapter可省略,默认为_D3DADAPTER_DEFAULT,\ndeviceType可省略,默认为 _D3DDEVTYPE_HA
+!IDirect3D9.GetAdapterIdentifier(.(adapter,flags) =  返回显卡信息\nadapter可省略,默认为_D3DADAPTER_DEFAULT
+!IDirect3D9.GetAdapterIdentifier() = !D3DADAPTER_IDENTIFIER9.
+!D3DADAPTER_IDENTIFIER9.Driver = Driver
+!D3DADAPTER_IDENTIFIER9.Description = Description
+!D3DADAPTER_IDENTIFIER9.DeviceName = DeviceName
+!D3DADAPTER_IDENTIFIER9.DriverVersion = DriverVersion
+!D3DADAPTER_IDENTIFIER9.DriverVersion.HighPart = HighPart
+!D3DADAPTER_IDENTIFIER9.DriverVersion.LowPart = LowPart
+!D3DADAPTER_IDENTIFIER9.VendorId = VendorId
+!D3DADAPTER_IDENTIFIER9.DeviceId = DeviceId
+!D3DADAPTER_IDENTIFIER9.SubSysId = SubSysId
+!D3DADAPTER_IDENTIFIER9.Revision = Revision
+com.interface.IDirect3D9.Create() = !IDirect3D9.
+
+_D3DADAPTER_DEFAULT=@0/*_D3DADAPTER_DEFAULT*/
+_D3DDEVTYPE_HAL=@1/*_D3DDEVTYPE_HAL*/
+_D3DDEVTYPE_REF=@2/*_D3DDEVTYPE_REF*/
+_D3DDEVTYPE_SW=@3/*_D3DDEVTYPE_SW*/
+_D3DDEVTYPE_FORCE_DWORD=@0x7FFFFFFF/*_D3DDEVTYPE_FORCE_DWORD*/
+end intellisense**/

package/aardio/lib/com/interface/IEnumCodePage.aardio

@@ -0,0 +1,14 @@
+import com.interface; 
+namespace com.interface;
+
+class IEnumCodePage{
+	ctor(){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	ptr Clone = "int(ptr &ppEnum)";
+    ptr Next = "int(INT celt,struct& rgelt,INT &pceltFetched)";
+    ptr Reset = "int()";
+    ptr Skip = "int(INT celt)";
+}
+
+IEnumCodePage.IID = "{275c23e3-3747-11d0-9fea-00aa003f8646}";