如何检测电脑已安装浏览器并创建其桌面快捷方式？

一、优化浏览器检测逻辑 #

你提供的检测代码可以重构，减少重复判断，同时保存浏览器的实际完整路径（后续创建快捷方式必须用到这个路径）：

' 定义浏览器信息：名称、可能的安装路径集合
Dim browsers As New List(Of Tuple(Of String, String())) From {
    Tuple.Create("Chrome", New String() {"C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "C:\Program Files\Google\Chrome\Application\chrome.exe"}),
    Tuple.Create("Firefox", New String() {"C:\Program Files (x86)\Mozilla Firefox\firefox.exe", "C:\Program Files\Mozilla Firefox\firefox.exe"})
}

' 存储已检测到的浏览器完整路径
Dim installedBrowserPaths As New List(Of String)()

For Each browser In browsers
    ' 找到第一个存在的路径
    Dim validExePath = browser.Item2.FirstOrDefault(Function(p) File.Exists(p))
    If validExePath IsNot Nothing Then
        ListBox1.Items.Add($"{browser.Item1}.exe")
        installedBrowserPaths.Add(validExePath)
    End If
Next

二、实现桌面快捷方式创建功能 #

创建快捷方式需要依赖Shell32 COM组件，具体步骤如下：

1. 在项目中添加引用：右键项目 → 引用 → COM → 找到并勾选Microsoft Shell Controls And Automation
2. 编写创建快捷方式的工具函数：

Imports Shell32
Imports System.IO

''' <summary>
''' 生成指定程序的桌面快捷方式
''' </summary>
''' <param name="targetExePath">目标程序的完整路径</param>
''' <param name="shortcutDisplayName">快捷方式显示名称</param>
Private Sub CreateDesktopShortcut(targetExePath As String, shortcutDisplayName As String)
    ' 获取系统桌面路径
    Dim desktopDir As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)
    ' 拼接快捷方式的完整路径
    Dim shortcutFullPath As String = Path.Combine(desktopDir, $"{shortcutDisplayName}.lnk")

    Dim shellInstance As New Shell()
    Dim shortcutObj As ShellLinkObject = CType(shellInstance.CreateShortcut(shortcutFullPath), ShellLinkObject)

    ' 设置快捷方式指向的目标程序
    shortcutObj.TargetPath = targetExePath
    ' 设置快捷方式的工作目录（与程序所在目录一致）
    shortcutObj.WorkingDirectory = Path.GetDirectoryName(targetExePath)
    ' 保存快捷方式到桌面
    shortcutObj.Save()
End Sub

三、整合检测与创建流程 #

在完成浏览器检测后，直接调用工具函数批量创建快捷方式：

' 遍历已检测到的浏览器，逐个创建桌面快捷方式
For Each exePath In installedBrowserPaths
    Dim shortcutName As String = Path.GetFileNameWithoutExtension(exePath)
    CreateDesktopShortcut(exePath, shortcutName)
Next

注意事项 #

• 确保程序拥有桌面写入权限，Windows Vista及以上系统中，若程序安装在系统盘目录，可能需要以管理员身份运行才能创建快捷方式
• 如需支持更多浏览器，只需在browsers列表中添加对应浏览器的名称和可能的安装路径即可

内容的提问来源于stack exchange，提问作者jani