在 COM 对象上使用早期绑定

Question

我有这段代码运行得很好，并为我提供了用户开始菜单的路径：

    Dim oShell As Object = CreateObject("Shell.Application")
    MsgBox(oShell.NameSpace(11).Self.Path)

这显然使用了后期绑定。 现在假设我想在 C# 或 VB.NET 严格模式中执行此操作，这两种模式都不支持这种带有后期绑定的语法。

这可能吗？ 如何？

谢谢你的帮助！

Answer 1

如果你想用 COM 方式解决这个问题，你必须弄清楚在 VB 项目中添加哪个 COM 引用。

打开regedit并导航到HKEY_CLASSES_ROOT\\CLSID，即

HKEY_CLASSES_ROOT\Shell.Application\CLSID

您将找到唯一标识COM组件的类id。

在 HKEY_CLASSES_ROOT\CLSID 下，您现在可以查找 COM 组件后面的文件：

HKEY_CLASSES_ROOT\CLSID\{13709620-C279-11CE-A49E-444553540000}\InProcServer32

显示以下值：

%SystemRoot%\system32\SHELL32.dll

现在转到 Visual Studio，并添加对此文件的引用（在浏览< 添加引用对话框的 /em> 选项卡）。 如果打开项目属性，您实际上会看到添加的 COM 组件的好听名称是 Microsoft Shell Controls and Automation。

添加引用后，您可以使用 Shell.Application 对象，如下所示：

Option Strict On

Module PrintStartMenuLocation

    Sub Main()
        Dim shell As New Shell32.Shell
        Dim folder As Shell32.Folder
        Dim folderItem As Shell32.FolderItem
        Dim startMenuPath As String

        folder = shell.NameSpace(Shell32.ShellSpecialFolderConstants.ssfSTARTMENU)
        folderItem = CType(folder.Items(0), Shell32.FolderItem)
        startMenuPath = folderItem.Path

        Console.WriteLine(startMenuPath)
    End Sub

End Module

C# 中的版本如下所示：

class Program
{
    static void Main(string[] args)
    {
        Shell32.Shell shell = new Shell32.Shell();
        Shell32.Folder folder = shell.NameSpace(Shell32.ShellSpecialFolderConstants.ssfSTARTMENU);
        Shell32.FolderItem folderItem = folder.Items().Item(0) as Shell32.FolderItem;
        string startMenuPath = folderItem.Path;

        Console.WriteLine(startMenuPath);
    }
}

但是，如果您只需要检索“开始”菜单文件夹的位置，您可以执行以下操作：直接在.NET中使用相同

Dim path As String = System.Environment.GetFolderPath(Environment.SpecialFolder.StartMenu)

Answer 2

实际上你可以使用反射：

Type shellType = Type.GetTypeFromProgID("Shell.Application", true);
object shell = Activator.CreateInstance(shellType);
object folder = shellType.InvokeMember("NameSpace", BindingFlags.InvokeMethod, null, shell, new object[] { 11 });
object self = folder.GetType().InvokeMember("Self", BindingFlags.GetProperty, null, folder, new object[] { });
object path = self.GetType().InvokeMember("Path", BindingFlags.GetProperty, null, self, new object[] { });
Console.WriteLine(path);

不是我喜欢的代码，但在 C# 4.0 中你可以使用 动态类型 来清理这个混乱。

Answer 3

Dim DirPath As String = _
    System.Environment.GetFolderPath(Environment.SpecialFolder.StartMenu)

请参阅此处了解更多信息。

Answer 4

如果我没记错的话，您所要做的就是将对象引用转换为适当的接口。 如果您在 .NET 中使用 COM 对象，通常会导入类型库，然后就可以使用可用的接口。