aview-app 1.0.2

package/aardio/lib/com/interface/IPersistFile.aardio

@@ -0,0 +1,18 @@
+
+import com.interface.IPersist; 
+namespace  com.interface;
+
+class IPersistFile{
+	ctor(  ){
+		this = ..com.interface.IPersist(); 
+	}; 
+	pointer IsDirty = "int()";
+	pointer Load = "int(ustring pszFileName, INT mode)";
+	pointer Save = "int(ustring pszFileName,bool remember)";
+	pointer SaveCompleted = "int(ustring pszFileName)";
+	pointer GetCurFile= "int(ustring& ppszFileName)"; 
+}
+IPersistFile.IID = "{0000010b-0000-0000-C000-000000000046}"; 
+
+ 
+          

package/aardio/lib/com/interface/IPersistStreamInit.aardio

@@ -0,0 +1,56 @@
+import win.ole;
+import com.interface.IPersist; 
+namespace com.interface;
+
+class IPersistStreamInit{
+	ctor(  ){
+		this = ..com.interface.IPersist(); 
+	}; 
+	pointer IsDirty = "int()";
+	pointer Load = "int(pointer pStm)";
+	pointer Save = "int(pointer pStm,bool clearDirty)";
+	pointer GetSizeMax = "int(LONG &pCbSize)";
+	pointer InitNew = "int()"; 
+	
+	fromString = function(str){ 
+		var lpMem = ::GlobalAlloc( 0x40/*_GPTR*/, #str+1 );
+		::CopyMemory(lpMem,str,#str); 
+    	var re,pIStream = ::CreateStreamOnHGlobal(lpMem, 1 )
+    	
+		if(re){
+			::GlobalFree(lpMem);   
+			return;  
+		}
+		
+		owner.InitNew();
+		var ret = owner.Load(pIStream); 
+		
+		..com.Release(pIStream)  
+		return  (ret)>=0/*_SUCCEEDED*/; 
+	} 
+	toString = function(clearDirty){ 
+		var hr,pSteam = ::CreateStreamOnHGlobal( , true );  
+		owner.Save(pSteam, clearDirty);  
+		var hr,handle = ::GetHGlobalFromStream(pSteam);    
+		var size = ::GlobalSize(handle);
+		var ptr = ::GlobalLock(handle); 
+		var str =  ..raw.tostring(ptr,1,size);
+		..com.Release(pSteam);
+		return str;
+	}
+}
+IPersistStreamInit.IID = "{7FD52380-4E07-101B-AE2D-08002B2EC713}";
+IPersistStreamInit.Query = function(obj){
+	 return ..com.interface(obj,IPersistStreamInit);
+}
+
+/**intellisense()
+com.interface.IPersistStreamInit.Query() = !IPersistStreamInit.
+!IPersistStreamInit.GetSizeMax(0) = 返回HRESULT,长度
+!IPersistStreamInit.fromString(.(字符串) = 加载字符串,成功返回true
+!IPersistStreamInit.toString() = 返回字符串对象
+!IPersistStreamInit.Load(.(pStm) = Load
+!IPersistStreamInit.Save(.(pStm,fClearDirty) = .Save
+!IPersistStreamInit.InitNew() = InitNew
+!IPersistStreamInit.IsDirty() = IsDirty
+end intellisense**/

package/aardio/lib/com/interface/IPicture.aardio

@@ -0,0 +1,187 @@
+import com.picture;
+import util.metaProperty;
+import com.interface;
+
+namespace com.interface;
+
+class IPicture{
+	ctor(  ){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	pointer get_Handle = "int(pointer &pHandle)"; 
+	pointer get_hPal = "int(pointer &phPal)"; 
+	pointer get_Type = "int(word &pType)"; 
+	pointer get_Width = "int(int &pWidth)"; 
+	pointer get_Height = "int(INT &pHeight)"; 
+	pointer Render = "int(int hDC,int x,int y, int cx,int cy, int xSrc, int ySrc, int cxSrc,int cySrc,struct pRcWBounds)"; 
+	pointer set_hPal = "int(POINTER hPal)"; 
+	pointer get_CurDC = "int(pointer &phDC)"; 
+	pointer SelectPicture = "int(pointer hDCIn,pointer &phDCOut,pointer &phBmpOut)"; 
+	pointer get_KeepOriginalFormat = "int(bool &pKeep)"; 
+	pointer put_KeepOriginalFormat = "int(bool keep)"; 
+	pointer PictureChanged = "int()"; 
+	pointer SaveAsFile = "int(pointer pStream,bool fSaveMemCopy,int &pCbSize)"; 
+	pointer get_Attributes = "int(INT &pDwAttr)"; 
+}
+
+namespace IPicture{
+	
+	IID = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}";
+	
+	Query = function(obj){ 
+		if(obj){
+			return {
+				_object = ..com.interface(obj,..com.interface.IPicture);
+				@_metaProperty;
+			}	
+		} 	
+	} 
+	
+	Load = function(strfile){   
+		return  Query(..com.picture.load(strfile)); 
+	}
+	
+	PrintClient = function(hwnd,x,y,w,h){
+		return  Query(..com.picture.printClient(hwnd,x,y,w,h)); 
+	}
+	
+	PrintWindow = function(hwnd,x=0,y=0,w,h,clientOnly) {
+		 return  Query(..com.picture.printWindow(hwnd,x,y,w,h,clientOnly)); 
+	} 
+	
+	SnapClient = function(hwnd,x,y,w,h){
+		return  Query(..com.picture.snapClient(hwnd,x,y,w,h));
+	}
+	
+	Snap = function(hwnd,x=0,y=0,w,h,clientOnly)   {
+		return  Query(..com.picture.snap(hwnd,x,y,w,h,clientOnly));  
+	} 
+	
+	_metaProperty = ..util.metaProperty(
+		saveToBuffer = function(saveMemCopy){
+			if(saveMemCopy===null) saveMemCopy = true;
+			var hr,pstream = ::CreateStreamOnHGlobal( , true ); 
+			owner._object.SaveAsFile(pstream,saveMemCopy,0);  
+			var hr,handle = ::GetHGlobalFromStream(pstream);    
+			var size = ::GlobalSize(handle);
+			var ptr = ::GlobalLock(handle); 
+			var bytes = ..raw.buffer(size,ptr); 
+			..com.Release(pstream);
+			return bytes;
+		};
+		saveAsFile = function(stream,saveMemCopy){
+			if(type.isString(stream)){
+				var buf = owner.saveToBuffer(saveMemCopy)
+				return ..string.save(stream,buf)
+			}
+			
+			if(saveMemCopy===null) saveMemCopy = true;
+			var hr,size = owner._object.SaveAsFile(stream,saveMemCopy,0);
+			if( hr>=0/*_SUCCEEDED*/ ) return size; 
+		};
+		pictureChanged = function(){
+			return owner._object.pictureChanged();
+		};
+		selectPicture = function(hDCIn){
+			var hr,phDCOut,phBmpOut = owner._object.SelectPicture(hDCIn);
+			if( hr>=0/*_SUCCEEDED*/ ) return phDCOut,phBmpOut;
+		};
+		render = function(hDC,x,y, cx,cy, xSrc, ySrc, cxSrc,cySrc,pRcWBounds){
+			pRcWBounds := {};
+			var hr = owner._object.Render(hDC,x,y, cx,cy, xSrc, ySrc, cxSrc,cySrc,pRcWBounds);
+			if( hr>=0/*_SUCCEEDED*/ ) return true;
+		};
+		handle = {
+			_get = function(){ 
+				var hr,hd = owner._object.get_Handle();
+				if( hr>=0/*_SUCCEEDED*/ ) return hd; 
+			}  	
+		}; 
+		hPal = {
+			_get = function(){ 
+				var hr,hp = owner._object.get_hPal();
+				if( hr>=0/*_SUCCEEDED*/ ) return hp; 
+			}  
+			_set = function(v){ 
+				owner._object.set_hPal(v);
+			} 	
+		};
+		attributes = {
+			_get = function(){ 
+				var hr,a = owner._object.get_Attributes(0);
+				if( hr>=0/*_SUCCEEDED*/ ) return a; 
+			}  	
+		}; 
+		keepOriginalFormat = {
+			_get = function(){ 
+				var hr,f = owner._object.get_KeepOriginalFormat(0);
+				if( hr>=0/*_SUCCEEDED*/ ) return f; 
+			}  
+			_set = function(v){ 
+				owner._object.put_KeepOriginalFormat(v);
+			} 	
+		};
+		type = {
+			_get = function(){ 
+				var hr,t = owner._object.get_Type(0);
+				if( hr>=0/*_SUCCEEDED*/ ) return t; 
+			}  	
+		};
+		width = {
+			_get = function(){ 
+				var hr,w = owner._object.get_Width(0);
+				if( hr>=0/*_SUCCEEDED*/ ) return w; 
+			}  	
+		};
+		height = {
+			_get = function(){ 
+				var hr,w = owner._object.get_Height(0);
+				if( hr>=0/*_SUCCEEDED*/ ) return w; 
+			}  	
+		};
+		curDC = {
+			_get = function(){ 
+				var hr,w = owner._object.get_CurDC();
+				if( hr>=0/*_SUCCEEDED*/ ) return w; 
+			}  	
+		};
+		curDC = {
+			_get = function(){ 
+				var hr,w = owner._object.get_CurDC();
+				if( hr>=0/*_SUCCEEDED*/ ) return w; 
+			}  	
+		};
+	)
+}
+
+/**intellisense(com.interface.IPicture)
+Query(.(IPicture对象) = 参数为com.picture 对象\n返回 com.interface.IPicture 接口对象
+Load(__/*请输入文件路径*/) =  载入图像并返回 com.interface.IPicture 接口对象,\n参数也可以指定资源路径、或者图像的内存数据\n如果已经导入了inet.http,加载路径可以使用小写http,https开头的网址,网址长度必须小于1040字节
+Snap(.(窗口句柄,左坐标,顶坐标,宽,高) = 自屏幕抓取窗口图象并返回 com.interface.IPicture 接口对象,\n截图结果会包含透明部分的背景图像，\n所有参数都是可选参数
+SnapClient(.(窗口句柄,左坐标,顶坐标,宽,高) = 自屏幕抓取窗口客户区图像并返回 com.interface.IPicture 接口对象,\n截图结果会包含透明部分的背景图像，\n所有参数都是可选参数
+PrintWindow(.(窗口句柄,左坐标,顶坐标,宽,高) = 后台抓取窗口图象并返回 com.interface.IPicture 接口对象\n所有参数都是可选参数
+PrintClient(.(窗口句柄,左坐标,顶坐标,宽,高) = 后台抓取窗口客户区图像并返回 com.interface.IPicture 接口对象 \n所有参数都是可选参数
+Query() = !RawIPicture.
+Load() = !RawIPicture.
+Snap() = !RawIPicture.
+SnapClient() = !RawIPicture.
+PrintWindow() = !RawIPicture.
+PrintClient() = !RawIPicture.
+end intellisense**/
+
+/**intellisense()
+!RawIPicture.saveToBuffer(.(saveMemCopy) = 保存图像到 buffer 对象，只能保存为 bmp 格式，\nsaveMemCopy指定是否保存内存副本,默认为true
+!RawIPicture.saveAsFile(.(stream,saveMemCopy) = 保存图像，成功返回保存大小，\n只能保存为bmp格式，\nstream参数可以是 fsys.stream 对象或 *.bmp 文件路径，\naveMemCopy指定是否保存内存副本，默认为true
+!RawIPicture.pictureChanged() = 图像是否已被修改
+!RawIPicture.selectPicture(.(hDCIn) = 选择绘图设备\n成功返回原设备,以及位图句柄
+!RawIPicture.render(.(hDC,x,y, cx,cy, xSrc, ySrc, cxSrc,cySrc,pRcWBounds) = 绘图\nhdc 绘图设备句柄\nx,y 设备显示坐标\ncx,cy 显示长度和宽度\nxSrc,ySrc 源图像偏移坐标\ncxSrc,cySrc 源图像输出宽度和高度,注意位图在内存是倒过来的,cySrc要取负数
+prcWBounds是指向目标图元设备环境句柄的指针,一般为NULL。
+!RawIPicture.handle = 句柄
+!RawIPicture.hPal = 调色板
+!RawIPicture.attributes = 选项数值
+!RawIPicture.keepOriginalFormat = 保持格式
+!RawIPicture.type = 图像类型\n图标还是位图
+!RawIPicture.width = 宽\n单位是0.01毫米而非像素
+!RawIPicture.height = 高\n单位是0.01毫米而非像素
+!RawIPicture.curDC = 当前绘图设备
+end intellisense**/

package/aardio/lib/com/interface/IServiceProvider.aardio

@@ -0,0 +1,16 @@
+ 
+import com.interface;
+namespace  com.interface;
+
+class IServiceProvider{
+	ctor(  ){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	pointer QueryService = "int(struct guidService,struct riid,pointer &ppvObject)"; 
+}
+IServiceProvider.IID = "{6d5140c1-7436-11ce-8034-00aa006009fa}";
+ 
+/**intellisense()
+com.interface.IServiceProvider = IServiceProvider接口
+end intellisense**/
+

package/aardio/lib/com/interface/IShellItem.aardio

@@ -0,0 +1,48 @@
+import com.interface;
+namespace com.interface;
+
+class IShellItem {
+	ctor(){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	ptr BindToHandler = "int(ptr pbc,struct bhid,struct riid,ptr&ppv)"; 
+	ptr GetParent = "int(ptr &ppsi)"; 
+	ptr GetDisplayName = "int(int sigdnName,pointer &ppszName)";  
+	ptr GetAttributes = "int(INT sfgaoMask,INT &psfgaoAttribs)"; 
+	ptr Compare = "int(ptr psi,INT hint,int &piOrder)"; 
+	getDisplayFilePath = function(){ 
+			var hr,wpath = owner.GetDisplayName(0x80058000/*_SIGDN_FILESYSPATH*/); 
+			if( hr>=0/*_SUCCEEDED*/){
+				return  ..string.fromUnicode(wpath,,-1);
+			}  
+	} 
+}
+
+IShellItem.IID = ..win.guid.valid("{43826d1e-e718-42ee-bc55-a1e261c37bfe}") 
+	
+IShellItem.createFromParsingName = function(path){
+	var result = {ptr pItem}
+	var hr = ::Shell32.SHCreateItemFromParsingNameW(..io.fullpath(path),null,IShellItem.IID,result);
+
+	if( hr >= 0/*_SUCCEEDED*/){
+		var item = ..com.interface(result.pItem,IShellItem);
+		..com.Release(result.pItem);
+		return item;
+	}
+}
+
+IShellItem.query = function(ptr){
+	return ..com.interface(ptr,IShellItem);
+}
+
+/**intellisense(com.interface.IShellItem)
+createFromParsingName(__) = 参数@1指定路径,\n返回IShellItem接口对象
+query(__) = 自指针获取IShellItem接口对象
+createFromParsingName() = !IShellItem.
+query() = !IShellItem.
+end intellisense**/
+
+/**intellisense(!IShellItem)
+GetDisplayName(.(sigdnName,ppszName) = 获取显示名,\n用法参考接口类源码
+getDisplayFilePath() = 获取显示文件路径,\n返回字符串
+end intellisense**/

package/aardio/lib/com/interface/IShellItemArray.aardio

@@ -0,0 +1,20 @@
+	
+import com.interface;
+namespace com.interface;
+
+class IShellItemArray {
+    ctor(){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	ptr BindToHandler = "int(ptr pbc,struct bhid,struct riid,ptr &ppvOut)";     
+	ptr GetPropertyStore = "int(int flags,struct riid,ptr &ppv)";  
+	ptr GetPropertyDescriptionList = "int(struct keyType,struct riid,ptr &ppv)";    
+	ptr GetAttributes = "int(int AttribFlags,INT sfgaoMask,INT &psfgaoAttribs)"; 
+	ptr GetCount = "int(INT &pdwNumItems)"; 
+	ptr GetItemAt = "int(INT dwIndex,ptr &ppsi)"; 
+	ptr EnumItems = "int(ptr ppenumShellItems)"; 
+}
+
+namespace IShellItemArray{
+    IID = "{b63ea76d-1f85-456f-a19c-48159efa858b}" 
+}

package/aardio/lib/com/interface/IShellLink.aardio

@@ -0,0 +1,35 @@
+import com.interface;
+import com.interface.IPersistFile;
+namespace  com.interface;
+
+class IShellLink{
+	ctor(  ){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	pointer GetPath = "int(ustring& pszFile,int cch,struct pfd,INT fFlags)";
+	pointer GetIDList = "int(pointer &ppidl)";
+	pointer SetIDList = "int(pointer pidl)";
+	pointer GetDescription = "int(ustring& pszName,int cch)";
+	pointer SetDescription= "int(ustring pszName)";
+	pointer GetWorkingDirectory= "int(ustring& pszDir,int cch)";
+	pointer SetWorkingDirectory = "int(ustring pszDir)";
+	pointer GetArguments= "int(ustring& pszArgs,int cch)";
+	pointer SetArguments= "int(ustring pszArgs)";
+	pointer GetHotkey = "int(WORD &pwHotkey)";
+	pointer SetHotkey = "int(WORD wHotkey)";
+	pointer GetShowCmd = "int(int &piShowCmd)";
+	pointer SetShowCmd = "int(int iShowCmd)";
+	pointer GetIconLocation= "int(ustring& pszIconPath,int cch,int &piIcon)";
+	pointer SetIconLocation = "int(ustring pszIconPath,int iIcon)";
+	pointer SetRelativePath = "int(ustring pszPathRel,INT dwReserved)";
+	pointer Resolve  = "int(int hwnd,INT fFlags)";
+	pointer SetPath = "int(ustring pszFile)"
+}
+IShellLink.IID = "{000214F9-0000-0000-C000-000000000046}";
+
+ /**intellisense()
+_SLGP_SHORTPATH=@0x1/*_SLGP_SHORTPATH*/
+_SLGP_UNCPRIORITY=@0x2/*_SLGP_UNCPRIORITY*/
+_SLGP_RAWPATH=@0x4/*_SLGP_RAWPATH*/
+_SLGP_RELATIVEPRIORITY=@0x8/*_SLGP_RELATIVEPRIORITY*/
+end intellisense**/

package/aardio/lib/com/interface/IStream.aardio

@@ -0,0 +1,26 @@
+import win.ole;
+import com.interface; 
+namespace com.interface;
+
+class IStream{
+	ctor(  ){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	pointer Read = "int(string &pv,INT size,INT & pcbRead)";
+	pointer Write = "int(pointer pv,INT cb,INT &pcbWritten)";
+	pointer Seek = "int(LONG dlibMove,INT dwOrigin,LONG &plibNewPosition)"; 
+	pointer SetSize = "int(LONG libNewSize)"; 
+	pointer CopyTo = "int(POINTER pstm,LONG cb,LONG &pcbRead,LONG &pcbWritten)"; 
+	pointer Commit = "int(INT flags)"; 
+	pointer Revert = "int()"; 
+	pointer LockRegion = "int(LONG libOffset,LONG cb,INT dwLockType)"; 
+	pointer UnlockRegion = "int(LONG libOffset,LONG cb,INT dwLockType)"; 
+	pointer Stat = "int(struct& pstatstg,INT grfStatFlag)"; 
+	pointer Clone = "int(pointer &ppstm)";  
+	
+}
+IStream.IID = "{0000000c-0000-0000-C000-000000000046}";
+
+/**intellisense()
+com.interface.IStream = IStream
+end intellisense**/

package/aardio/lib/com/interface/ITaskbarList3.aardio

@@ -0,0 +1,62 @@
+ 	
+import com.interface; 
+namespace com.interface;
+
+class ITaskbarList3{
+	ctor(){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	pointer HrInit = "int()";
+	pointer AddTab = "int(addr hwnd)";
+	pointer DeleteTab = "int(addr hwnd)";
+	pointer ActivateTab = "int(addr hwnd)";
+	pointer SetActiveAlt = "int(addr hwnd)"; 
+ 	pointer MarkFullscreenWindow = "int(addr hwnd,bool fFullscreen)"; 
+ 	pointer SetProgressValue = "int(addr hwnd, LONG ullCompleted, LONG ullTotal)"; 
+ 	pointer SetProgressState = "int(addr hwnd, int flags)"; 
+ 	pointer RegisterTab = "int(addr hwndTab,addr hwndMDI)"; 
+ 	pointer UnregisterTab = "int(addr hwndTab)"; 
+ 	pointer SetTabOrder = "int(addr hwndTab, addr hwndInsertBefore)"; 
+ 	pointer SetTabActive = "int(addr hwndTab, addr hwndMDI, INT dwReserved)"; 
+ 	pointer ThumbBarAddButtons = "int(addr hwnd, INT cButtons,struct pButton)"; 
+ 	pointer ThumbBarUpdateButtons = "int(addr hwnd, INT cButtons,struct pButton)"; 
+ 	pointer ThumbBarSetImageList = "int(addr hwnd, pointer himl)"; 
+ 	pointer SetOverlayIcon = "in(addr hwnd, pointer hIcon,ustring pszDescription)"; 
+ 	pointer SetThumbnailTooltip = "int(addr hwnd, ustring pszTip)"; 
+ 	pointer SetThumbnailClip = "int(addr hwnd, struct prcClip)";  
+}
+ITaskbarList3.IID = "{EA1AFB91-9E28-4B86-90E9-9E9F8A5EEFAF}";
+ 
+ITaskbarList3.Create = function(obj){
+	var taskbar =  ..com.interface.create( ..win.guid(0x56fdf344, 0xfd6d, 0x11d0, 0x95, 0x8a, 0x0, 0x60, 0x97, 0xc9, 0xa0, 0x90)
+		, ITaskbarList3 );
+	if(taskbar){
+		taskbar.HrInit();
+		return taskbar;
+	}
+} 
+
+_WM_TASKBARBUTTONCREATED = ::User32.RegisterWindowMessage("TaskbarButtonCreated");  
+var changeWindowMessageFilter = ::User32.ChangeWindowMessageFilter;
+if( changeWindowMessageFilter ){
+	changeWindowMessageFilter(_WM_TASKBARBUTTONCREATED,1/*_MSGFLT_ADD*/)
+	changeWindowMessageFilter(0x111/*_WM_COMMAND*/,1/*_MSGFLT_ADD*/)
+}
+            
+/**intellisense()
+com.interface.ITaskbarList3.Create() = 创建ITaskbarList3接口\n!ITaskbarList3.
+!ITaskbarList3.AddRef() = 引用计数加一,返回引用计数
+!ITaskbarList3.Release() = 引用计数减一,返回引用计数
+!ITaskbarList3.QueryInterface(__/*接口数*/) = 参数是接口类,参考com.interface.IUnknown源码
+!ITaskbarList3.SetProgressValue(.(窗口句柄,进度值,最大值) =  
+!ITaskbarList3.SetProgressState(.(窗口句柄,状态值) =  状态值使用 _TBPF_ 前缀常量
+!ITaskbarList3.SetOverlayIcon(.(窗口句柄,覆盖图标,提示文本) = 设置进度条覆盖图标
+_WM_TASKBARBUTTONCREATED = 收到此消息时创建ITaskbarList3
+com.interface.ITaskbarList3.Query() = !ITaskbarList3.
+
+_TBPF_NOPROGRESS=@0/*_TBPF_NOPROGRESS*/
+_TBPF_INDETERMINATE=@1/*_TBPF_INDETERMINATE*/
+_TBPF_NORMAL=@2/*_TBPF_NORMAL*/
+_TBPF_ERROR=@4/*_TBPF_ERROR*/
+_TBPF_PAUSED=@8/*_TBPF_PAUSED*/
+end intellisense**/

package/aardio/lib/com/interface/ITfInputProcessorProfileMgr.aardio

@@ -0,0 +1,75 @@
+import com.interface; 
+namespace com.interface;
+
+class ITfInputProcessorProfileMgr{
+	ctor(){
+		this = ..com.interface.IUnknown(); 
+	}; 
+    pointer ActivateProfile = "int(INT dwProfileType, WORD langid, struct clsid,struct guidProfile,pointer hkl, INT dwFlags)";
+    pointer DeactivateProfile = "int(INT dwProfileType, WORD langid, struct clsid,struct guidProfile,pointer hkl, INT dwFlags)";
+    pointer GetProfile = "int(INT dwProfileType, WORD langid,struct clsid, struct guidProfile,pointer hkl,struct pProfile)";
+    pointer EnumProfiles = "int(WORD langid,pointer &pEnum)"; 
+    pointer ReleaseInputProcessor = "int(struct rclsid,INT dwFlags)";
+    pointer RegisterProfile = "int(struct rclsid, WORD langid, struct guidProfile,ustring pchDesc, INT cchDesc,ustring pchIconFile, INT cchFile,INT uIconIndex,pointer hklsubstitute,INT dwPreferredLayout, bool bEnabledByDefault,INT dwFlags)";
+    pointer UnregisterProfile = "int(struct rclsid, WORD langid, struct guidProfile, INT dwFlags)"; 
+    pointer GetActiveProfile = "int(struct catid,struct pProfile)";
+    each = function(langid){
+    	var hr,pEnum = owner.EnumProfiles(langid);
+    	if( (hr>=0/*_SUCCEEDED*/) && pEnum){ 
+    		var enum = ..com.interface(pEnum,IEnumTfInputProcessorProfiles);
+    		return function(){
+    			var profile = TF_INPUTPROCESSORPROFILE() 
+    			var hr,profile,cFetch = enum.Next(1,profile,0); 
+    			if( (hr>=0/*_SUCCEEDED*/) && cFetch){ 
+    				return profile;  
+    			}
+    		} ; 
+    	}
+    	return function(){}
+    }
+    
+} 
+
+namespace ITfInputProcessorProfileMgr{
+    IID = "{71c6e74c-0f28-11d8-a82a-00065b84435c}";
+    
+    Create = function(){
+		return  ..com.interface.create( ..win.guid.fromString("{33C53A50-F456-4884-B049-85FD643ECFED}")
+			, ..com.interface.ITfInputProcessorProfileMgr ); 
+	} 
+    
+	class IEnumTfInputProcessorProfiles{
+		ctor(){
+			this = ..com.interface.IUnknown(); 
+		}; 
+		pointer Clone = "int(ptr *pEnum)";
+		pointer Next = "int(INT ulCount,struct &pProfile,INT &cFetch)";
+		pointer Reset = "int()";
+		pointer Skip = "int(INT ulCount)";
+	}
+	IEnumTfInputProcessorProfiles.IID = "{71c6e74d-0f28-11d8-a82a-00065b84435c}";
+	
+	class TF_INPUTPROCESSORPROFILE {
+		INT dwProfileType;
+    	WORD langid;
+    	struct clsid = ..win.guid();
+    	struct guidProfile= ..win.guid();
+    	struct catid= ..win.guid();
+    	pointer hklSubstitute;
+    	INT dwCaps;
+    	pointer hkl;
+    	INT dwFlags;
+	}  
+}
+
+ /**intellisense()
+com.interface.ITfInputProcessorProfileMgr.Create() = 创建TSF输入法语言配置文件管理器对象\n!ITfInputProcessorProfileMgr.
+_TF_PROFILETYPE_INPUTPROCESSOR=@1/*_TF_PROFILETYPE_INPUTPROCESSOR*/
+_TF_PROFILETYPE_KEYBOARDLAYOUT=@2/*_TF_PROFILETYPE_KEYBOARDLAYOUT*/
+end intellisense**/
+
+/**intellisense(!ITfInputProcessorProfileMgr)
+each(langid) = @for( processorProfile in ??.each() ){\n	__/*遍历输入语言配置文件*/\n}  
+end intellisense**/
+
+ 

package/aardio/lib/com/interface/ITfInputProcessorProfiles.aardio

@@ -0,0 +1,125 @@
+import win.ole;
+import com.interface;
+import com.interface.IEnumGUID;
+
+namespace com.interface;
+
+class ITfInputProcessorProfiles{
+	ctor(){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	pointer Register = "int(struct rclsid)";  
+	pointer Unregister = "int(struct rclsid)";
+	pointer AddLanguageProfile = "int(struct rclsid,WORD langid,struct guidProfile,ustring pchDesc,INT cchDesc,ustring pchIconFile, INT cchFile,INT uIconIndex)";
+	pointer RemoveLanguageProfile = "int(struct rclsid,WORD langid,struct guidProfile)";
+	pointer EnumInputProcessorInfo = "int(pointer &ppEnum)";
+	pointer GetDefaultLanguageProfile = "int(WORD langid,struct catid,struct& pclsid, struct& pguidProfile)";
+	pointer SetDefaultLanguageProfile = "int(WORD langid, struct rclsid,struct guidProfiles)";
+	pointer ActivateLanguageProfile = "int(struct rclsid, WORD langid,struct guidProfiles)";
+	pointer GetActiveLanguageProfile = "int( struct rclsid,WORD& plangid, struct& pguidProfile)";
+	pointer GetLanguageProfileDescription__ = "int(struct rclsid, WORD langid, struct guidProfile,pointer &pbstrProfile)";
+	pointer GetCurrentLanguage = "int(WORD& plangid)";
+	pointer ChangeCurrentLanguage = "int(WORD langid)";
+	pointer GetLanguageList = "int(struct &ppLangId,INT &pulCount)";
+	pointer EnumLanguageProfiles = "int(WORD langid,pointer &pEnum)";
+	pointer EnableLanguageProfile = "int( struct rclsid, WORD langid, struct guidProfile, bool  fEnable)";
+	pointer IsEnabledLanguageProfile = "int( struct rclsid,WORD langid, struct guidProfile, bool& pfEnable)";
+	pointer EnableLanguageProfileByDefault = "int(struct rclsid, WORD langid, struct guidProfile, bool fEnable)";
+	pointer SubstituteKeyboardLayout = "int( struct rclsid, WORD langid,struct guidProfile,pointer hKL)";
+	GetLanguageProfileDescription = function(rclsid,langid,guidProfile){
+		if(rclsid[["clsid"]]){
+			rclsid,langid,guidProfile = rclsid[["clsid"]],rclsid[["langid"]],rclsid[["guidProfile"]]
+		}
+		
+		var hr,bstr = owner.GetLanguageProfileDescription__(rclsid,langid,guidProfile,null);
+		if( hr>=0/*_SUCCEEDED*/ ){
+			return ..win.ole.fromSysString(bstr)
+		} 
+	};
+    each = function(langid){
+    	var hr,pEnum = owner.EnumLanguageProfiles(langid:0x804); 
+    	var this = owner; //owner才是当前com对象,this指向的是接口定义
+    	
+    	if( (hr>=0/*_SUCCEEDED*/) && pEnum){ 
+    		var enum = ..com.interface(pEnum,IEnumTfLanguageProfiles);
+    		return function(){
+    			var profile = TF_LANGUAGEPROFILE() 
+    			var hr,profile,cFetch = enum.Next(1,profile,0); 
+    			if( (hr>=0/*_SUCCEEDED*/) && cFetch){ 
+    				profile.description = this.GetLanguageProfileDescription(profile) 
+    				return profile;  
+    			}
+    		} ; 
+    	}
+    	return function(){}
+    };
+    eachInputProcessorInfo = function(){
+    	var hr,pEnum = owner.EnumInputProcessorInfo(); 
+    	var this = owner; //owner才是当前com对象,this指向的是接口定义
+    	
+    	if( (hr>=0/*_SUCCEEDED*/) && pEnum){ 
+    		var enum = ..com.interface(pEnum,..com.interface.IEnumGUID);
+    		return enum.each();
+    	}
+    	return function(){}
+    };
+    activeProfileByDescription = function(desc){
+		var profile = owner.findProfileByDescription(desc);
+		if(profile) return 0 <= owner.ActivateLanguageProfile(profile.clsid,profile.langid,profile.guidProfile) 
+	}; 
+	findProfileByDescription = function(desc){
+		for( profile in owner.each() ){
+			 if( profile.description === desc ){
+			 	return profile
+			 }
+		}
+		
+		for( profile in owner.each() ){
+			 if( string.find(profile.description,desc) ){
+			 	return profile
+			 }
+		} 	
+	};
+} 
+
+namespace ITfInputProcessorProfiles{
+    IID = "{1F02B6C5-7842-4EE6-8A0B-9A24183A95CA}";
+    
+    Create = function(){
+		return  ..com.interface.create( ..win.guid.fromString("{33C53A50-F456-4884-B049-85FD643ECFED}")
+			, ..com.interface.ITfInputProcessorProfiles ); 
+	} 
+    
+	class IEnumTfLanguageProfiles{
+		ctor(){
+			this = ..com.interface.IUnknown(); 
+		}; 
+		pointer Clone = "int(ptr *pEnum)";
+		pointer Next = "int(INT ulCount,struct &pProfile,INT &cFetch)";
+		pointer Reset = "int()";
+		pointer Skip = "int(INT ulCount)";
+	}
+	IEnumTfLanguageProfiles.IID = "{3d61bf11-ac5f-42c8-a4cb-931bcc28c744}";
+	
+	class TF_LANGUAGEPROFILE { 
+    	struct clsid = ..win.guid();
+    	WORD langid;
+    	struct catid= ..win.guid();
+    	bool fActive;
+    	struct guidProfile= ..win.guid(); 
+	} 
+}
+
+ /**intellisense()
+com.interface.ITfInputProcessorProfiles.Create() = 创建输入法配置接口对象\n!ITfInputProcessorProfiles.
+end intellisense**/
+
+/**intellisense(!ITfInputProcessorProfiles)
+each(langid) = @for( languageProfile in ??.each() ){\n	__/*遍历输入语言配置文件*/\n}
+GetLanguageProfileDescription(.(rclsid,langid,guidProfile) = 获取输入语言描述
+GetLanguageProfileDescription(.(languageProfile) = 获取输入语言描述
+activeProfileByDescription(__) = 按参数指定的描述激活输入语言配置文件
+findProfileByDescription(__) = 按参数指定的描述查找输入语言配置文件\n返回TF_LANGUAGEPROFILE结构体
+end intellisense**/
+
+