如何通过Delphi代码检测Visual Studio Code是否已安装？

阿华AIGC实验室

2026-4-27

检测Visual Studio Code是否安装的最佳跨平台方案

你遇到的问题其实很典型——依赖固定注册表GUID的检测很容易失效，而且跨平台场景下路径差异确实是个大问题。下面我来给你梳理最佳的检测方案，以及修复你那段Delphi代码的方法：

核心思路：优先检测可执行文件的可用性

不管Windows、macOS还是Linux，最可靠的方式都是检查VSCode的可执行文件是否能被系统正常调用。毕竟用户装了VSCode肯定是要启动使用的，只要能正常启动，这个可执行文件要么在系统PATH里，要么有系统能识别的启动项，完全不受自定义安装路径的影响。

分平台的具体检测逻辑

Windows：优先找code.exe或code-insiders.exe是否在PATH中；其次检查系统App Paths注册表项；最后通过卸载项的关键词匹配（而非固定GUID）查找安装路径。
macOS：检查/Applications目录下的VSCode应用包，或者终端中code命令是否可用。
Linux：检查code或code-insiders命令是否在PATH中，或者查看系统桌面快捷方式文件。

修复你提供的Delphi代码（Windows平台）

你原来的两个函数都返回False，主要有两个原因：一是VSCode的卸载注册表项GUID已经更新（微软会在新版本中更换这些固定标识）；二是没有处理64位系统下32位程序访问注册表的重定向问题。

下面是改进后的Delphi代码，覆盖了更多检测场景，也解决了上述问题：

unit VSCodeDetect;
interface
{$IFDEF MSWINDOWS}
function IsVSCodeInstalled: Boolean;
{$ENDIF}
implementation
{$IFDEF MSWINDOWS}
uses System.SysUtils, System.Win.Registry, Winapi.Windows, System.IOUtils;

function CheckRegistryForVSCode(const RootKey: HKEY; const UninstallPath: string): Boolean;
var
  Reg: TRegistry;
  SubKeys: TStringList;
  I: Integer;
  InstallLocation, ExePath: string;
begin
  Result := False;
  // 同时支持访问64位注册表，解决32位程序在64位系统的检测问题
  Reg := TRegistry.Create(KEY_READ or KEY_WOW64_64KEY);
  SubKeys := TStringList.Create;
  try
    Reg.RootKey := RootKey;
    if Reg.OpenKeyReadOnly(UninstallPath) then
    begin
      Reg.GetKeyNames(SubKeys);
      for I := 0 to SubKeys.Count - 1 do
      begin
        // 通过关键词匹配卸载项，避免固定GUID失效
        if Pos('Visual Studio Code', SubKeys[I]) > 0 then
        begin
          Reg.OpenKeyReadOnly(UninstallPath + '\' + SubKeys[I]);
          InstallLocation := Reg.ReadString('InstallLocation');
          if InstallLocation <> '' then
          begin
            // 检查稳定版和Insiders版可执行文件
            ExePath := TPath.Combine(InstallLocation, 'Code.exe');
            if TFile.Exists(ExePath) then
              Exit(True);
            ExePath := TPath.Combine(InstallLocation, 'Code - Insiders.exe');
            if TFile.Exists(ExePath) then
              Exit(True);
          end;
          Reg.CloseKey;
        end;
      end;
    end;
  finally
    SubKeys.Free;
    Reg.Free;
  end;
end;

function CheckAppPathsForVSCode: Boolean;
const
  AppPaths = '\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths';
var
  Reg: TRegistry;
  ExePath: string;
begin
  Result := False;
  Reg := TRegistry.Create(KEY_READ or KEY_WOW64_64KEY);
  try
    // 检查系统级App Paths
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKeyReadOnly(AppPaths + '\Code.exe') then
    begin
      ExePath := Reg.ReadString('');
      if TFile.Exists(ExePath) then
        Exit(True);
      Reg.CloseKey;
    end;
    if Reg.OpenKeyReadOnly(AppPaths + '\Code - Insiders.exe') then
    begin
      ExePath := Reg.ReadString('');
      if TFile.Exists(ExePath) then
        Exit(True);
      Reg.CloseKey;
    end;

    // 检查当前用户级App Paths
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKeyReadOnly(AppPaths + '\Code.exe') then
    begin
      ExePath := Reg.ReadString('');
      if TFile.Exists(ExePath) then
        Exit(True);
      Reg.CloseKey;
    end;
    if Reg.OpenKeyReadOnly(AppPaths + '\Code - Insiders.exe') then
    begin
      ExePath := Reg.ReadString('');
      if TFile.Exists(ExePath) then
        Exit(True);
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

function CheckPathForVSCode: Boolean;
var
  PathEnv: string;
  Paths: TStringList;
  I: Integer;
  ExePath: string;
begin
  Result := False;
  PathEnv := GetEnvironmentVariable('PATH');
  Paths := TStringList.Create;
  Paths.Delimiter := ';';
  Paths.DelimitedText := PathEnv;
  try
    for I := 0 to Paths.Count - 1 do
    begin
      ExePath := TPath.Combine(Paths[I], 'Code.exe');
      if TFile.Exists(ExePath) then
        Exit(True);
      ExePath := TPath.Combine(Paths[I], 'Code - Insiders.exe');
      if TFile.Exists(ExePath) then
        Exit(True);
    end;
  finally
    Paths.Free;
  end;
end;

function IsVSCodeInstalled: Boolean;
begin
  Result := False;
  // 优先检测PATH中的可执行文件，最可靠
  if CheckPathForVSCode then
  begin
    Result := True;
    Exit;
  end;
  // 其次检查App Paths注册表项
  if CheckAppPathsForVSCode then
  begin
    Result := True;
    Exit;
  end;
  // 最后检查卸载注册表项（关键词匹配）
  if CheckRegistryForVSCode(HKEY_LOCAL_MACHINE, '\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall') then
  begin
    Result := True;
    Exit;
  end;
  if CheckRegistryForVSCode(HKEY_CURRENT_USER, '\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall') then
  begin
    Result := True;
    Exit;
  end;
end;
{$ENDIF}
end.

代码改进点说明

注册表访问优化：添加KEY_WOW64_64KEY标志，让32位Delphi程序也能访问64位系统的注册表项，避免因为系统位数导致的检测失败。
卸载项匹配逻辑：不再依赖固定的GUID，而是通过关键词Visual Studio Code匹配卸载项名称，彻底解决GUID更新导致的失效问题。
多维度检测顺序：优先检测PATH中的可执行文件（最可靠，不受安装路径影响），其次是App Paths注册表，最后是卸载项，覆盖更多场景。
支持Insiders版：同时检测稳定版和Insiders版的可执行文件，满足更多用户的使用场景。

跨平台扩展思路

如果需要支持macOS和Linux，可以参考以下逻辑（同样用Delphi实现）：

macOS平台检测

{$IFDEF MACOS}
function IsVSCodeInstalled: Boolean;
begin
  // 先检查应用程序目录下的VSCode包
  Result := TDirectory.Exists('/Applications/Visual Studio Code.app') or
            TDirectory.Exists('/Applications/Visual Studio Code - Insiders.app');
  // 再检查终端是否能调用code命令
  if not Result then
    Result := TProcess.Execute('which', ['code']) = 0;
end;
{$ENDIF}

Linux平台检测

{$IFDEF LINUX}
function IsVSCodeInstalled: Boolean;
begin
  // 先检查PATH中的code命令
  Result := TProcess.Execute('which', ['code']) = 0 or
            TProcess.Execute('which', ['code-insiders']) = 0;
  // 再检查系统桌面快捷方式文件
  if not Result then
    Result := TFile.Exists('/usr/share/applications/code.desktop') or
              TFile.Exists('/usr/share/applications/code-insiders.desktop');
end;
{$ENDIF}

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