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.
原文：http://www.cnblogs.com/sunylat/p/6352363.html