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.