RSS订阅 | 匿名投稿
您的位置:网站首页 > 系统 > 正文

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

作者:admin 来源: 日期:2019/7/1 17:52:25 人气: 标签:

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.

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料