查询指定COM接口名字支持哪些接口

marting

1. (defun _FindProjIDs ( pattern )
   
2.     (   (lambda ( pfx sfx pattern )
   
3.             (vl-sort
   
4.                 (vl-remove-if-not
   
5.                     (function
   
6.                         (lambda (x)
   
7.                             (and
   
8.                                 (eq 'str (type x))
   
9.                                 (wcmatch (strcase x) pattern)
   
10.                             )
    
11.                         )
    
12.                     )
    
13.                     (mapcar
    
14.                         (function
    
15.                             (lambda (x)
    
16.                                 (vl-registry-read (strcat pfx x sfx))
    
17.                             )
    
18.                         )
    
19.                         (vl-registry-descendents pfx)
    
20.                     )
    
21.                 )
    
22.                '<
    
23.             )      
    
24.         )
    
25.         "HKEY_CLASSES_ROOT\\CLSID\\"
    
26.         "\\ProgID"
    
27.         (strcase pattern)
    
28.     )
    
29. )
    

(defun _FindProjIDs ( pattern )<br />     (   (lambda ( pfx sfx pattern )<br />             (vl-sort<br />                 (vl-remove-if-not<br />                     (function<br />                         (lambda (x)<br />                             (and<br />                                 (eq 'str (type x))<br />                                 (wcmatch (strcase x) pattern)<br />                             )<br />                         )<br />                     )<br />                     (mapcar<br />                         (function <br />                             (lambda (x) <br />                                 (vl-registry-read (strcat pfx x sfx))<br />                             )<br />                         )<br />                         (vl-registry-descendents pfx)<br />                     )<br />                 )<br />                '<<br />             )       <br />         )<br />         "HKEY_CLASSES_ROOT\\CLSID\\"<br />         "\\ProgID"<br />         (strcase pattern)<br />     )<br /> )<br />

命令: (_FINDPROJIDS "*objectdbx*")
("ObjectDBX.AxDbDocument.16" "ObjectDBX.AxDbDocument.17")

命令: (_FINDPROJIDS "*word*")
("AdobePDFMakerX.Word" "AdobePDFMakerX.WordStatusDlg"
"CImeDictAPILocalWordComment.15" "EasyConverter.PDF2Word.3"
"EasyConverter.PDF2Word.4" "Forms.HTML:Password.1" "Forms.HTML:Password.1"
"IAS.ChangePassword.1" "ITIR.LocalWordWheel.4" "ITIR.StdWordBreaker.4"
"ITIR.SystemWordSink.4" "ITIR.WordWheelBuild.4" "VS11WordAdaptor.1"
"Word.Application.12" "Word.Basic.9" "Word.Document.12" "Word.Document.6"
"Word.Document.8" "Word.DocumentMacroEnabled.12" "Word.OpenDocumentText.12"
"Word.Picture.6" "Word.Picture.8" "Word.Template.12"
"Word.TemplateMacroEnabled.12" "WordDocument" "WordPad.Document.1"
"esriArcMapUI.InsertDynamicTextDocumentKeywordsCommand.1"
"esriCarto.WordTextPath.1" "esriFramework.GetUserAndPasswordDialog.1"
"esriGeoprocessing.GPExportGeodatabaseConfigurationKeywords.1"
"esriGeoprocessing.GPImportGeodatabaseConfigurationKeywords.1"
"esriGeoprocessingUI.GPToolKeywordsPropertyPage.1"
"esriGeoprocessingUI.MdPasswordCtrl.1"
"esriGeoprocessingUI.SetScriptPasswordToolMenuItems.1" "msinkaut.InkWordList.1")

命令: (_FINDPROJIDS "*excel*")
("AdobePDFMakerX.ExcelSheetsDlg" "EasyConverter.PDF2Excel.4"
"Excel.Application.12" "Excel.Chart.5" "Excel.Chart.8"
"Excel.ChartApplication.16" "Excel.OpenDocumentSpreadsheet.12" "Excel.Sheet.12"
"Excel.Sheet.5" "Excel.Sheet.8" "Excel.SheetBinaryMacroEnabled.12"
"Excel.SheetMacroEnabled.12" "ExcelAddIn.Connect.4" "ExcelChart"
"ExcelMacrosheet" "ExcelWorksheet" "FlexCell.Calendar" "FlexCell.Calendar"
"FlexCell.Cell" "FlexCell.Cell" "FlexCell.Chart" "FlexCell.Chart"
"FlexCell.Column" "FlexCell.Column" "FlexCell.ComboBox" "FlexCell.ComboBox"
"FlexCell.Grid" "FlexCell.Grid" "FlexCell.HPageBreaks" "FlexCell.HPageBreaks"
"FlexCell.Image" "FlexCell.Image" "FlexCell.Images" "FlexCell.Images"
"FlexCell.PageBreak" "FlexCell.PageBreak" "FlexCell.PageSetup"
"FlexCell.PageSetup" "FlexCell.PaperSize" "FlexCell.PaperSize"
"FlexCell.PaperSizes" "FlexCell.PaperSizes" "FlexCell.Range" "FlexCell.Range"
"FlexCell.ReportTitle" "FlexCell.ReportTitle" "FlexCell.ReportTitles"
"FlexCell.ReportTitles" "FlexCell.Selection" "FlexCell.Selection"
"FlexCell.VPageBreaks" "FlexCell.VPageBreaks" "VS11ExcelAdaptor.1"
"esriCatalogUI.GxExcelFactory.1" "esriCatalogUI.GxExcelFile.1"
"esriCatalogUI.GxExcelFileContextMenu.1"
"esriCatalogUI.GxExcelTableContextMenu.1"
"esriDataSourcesOleDB.ExcelFileNativeType.1"
"esriDataSourcesOleDB.ExcelTableNativeType.1"
"esriDataSourcesOleDB.ExcelWorkspaceFactory.1")

命令: (_FINDPROJIDS "*vbscript*")
("AudioVBScript.1" "VBScript" "VBScript Author" "VBScript.Encode"
"VBScript.RegExp" "esriCarto.AnnotationVBScriptEngine.1"
"esriCarto.HotLinkVBScriptEngine.1"
"esriCartoX.AnalyzeVBScriptParserNotSupportedOnLinux.1"
"esriGeoprocessing.ModelToVbscriptConverter.1"
"esriGeoprocessing.ModelToVbscriptConverterEngineCallback.1"
"esriLocation.HatchVBScriptEngine.1")

命令: (_FINDPROJIDS "*shell*")

("DWFShellExtension.DWFShellExt.1" "DfsShell.DfsShell.1"
"DfsShell.DfsShellAdmin.1" "Microsoft.XPS.Shell.Metadata.1"
"Microsoft.XPS.Shell.Thumbnail.1" "MsRdpWebAccess.MsRdpClientShell.1"
"PDFShellServer.PDFShellInfo.1" "PDFShellServer.PDFShellInfo2.1"
"QQShellExt.QQShellExtension.1" "Shell.Application.1" "Shell.Explorer.1"
"Shell.Explorer.2" "Shell.FolderView.1" "Shell.HWEventHandlerShellExecute.1"
"Shell.UIHelper.1" "ShellNameSpace.ShellNameSpace.1"
"VSFileHandler.VsShellExtHandler.1" "VisShe.CInfoTipShellExt.1"
"VisShe.IconHandlerShellExt.1" "VisShe.ImageExtractorShellExt.1"
"VisShe.QuickViewShellExt.1" "WScript.Shell.1" "WScript.Shell.1"
"WangPanShell.ShellContextMenu.1")

sh_h

大哥在上，请受小弟一拜！：）

HLCAD

非常高深，我只会拿来主义，谢谢楼主