打开win8及以上操作系统的系统已安装程序目录

Windows 8 的“Metro 界面”里不能像XP和Win7那样，点击“开始”->“程序”，显示系统所有安装的程序，这个功能还是非常有用的，可以帮助我们快速查看系统已经安装的程序！我编写了这个小程序，直接可以打开Windows 8 及以上操作系统的已经安装程序目录，大家可以非常方便以目录方式查看系统已经安装的程序！

源码下载：http://download.csdn.net/detail/sunylat/9744980

解压缩下载文件后，小工具在解压缩后的文件夹中：“Win32\Release”，文件名：“OPenWin8ProgramDir.exe”。

运行效果截图：

全部源码：

program OPenWin8ProgramDir;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  shellapi,
  Windows,
  ShlObj {GetSpecialDir用单元};

var
  ProgramDataPath: string; // 完整的启动菜单目录

  // 得到特殊目录
function GetSpecialDir(SpecialDirID: integer): string;
var
  pidl: PItemIDList;
  Path: array [0 .. MAX_PATH] of Char;
begin
  SHGetSpecialFolderLocation(0, SpecialDirID, pidl);
  SHGetPathFromIDList(pidl, Path);
  Result := Path;
end;

begin
  try
    // 得到当前用户的启动菜单目录
    ProgramDataPath := GetSpecialDir(CSIDL_COMMON_PROGRAMS);

    // 打开启动菜单目录
    ShellExecute(0, 'open', pchar(ProgramDataPath), nil, nil, 1);

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.