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


本文整理自网络,侵删。

 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可执行程序参数

Delphi 10 seattle android应用程序使用toast

Delphi xe 网上获取北京时间android app 启动黑屏优化补丁

Delphi实现保存和读取图片的方法

Delphi 检测文件是否被占用

Delphi 让子窗体显示最大化

Delphi之截取整个窗体图片

Delphi 万年历 程序源码下部分(包括:农历计算、24节气、星期计算、属相)

Delphi中使用spcomm来实现串口通讯

Delphi checklistbox简单用法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...