本文整理自网络，侵删。
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.
相关阅读 >>
Delphi tdirectory.getdirectories
Delphi如何获取系统服务(即service服务程序)列表
更多相关阅读请进入《Delphi》频道 >>
