本文整理自网络,侵删。
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 10 seattle android应用程序使用toast
Delphi xe 网上获取北京时间android app 启动黑屏优化补丁
Delphi 万年历 程序源码下部分(包括:农历计算、24节气、星期计算、属相)
更多相关阅读请进入《Delphi》频道 >>