Delphi 获取系统相关路径 -- SHGetSpecialFolderLocation

最新推荐文章于 2019-07-03 10:49:00 发布

原创最新推荐文章于 2019-07-03 10:49:00 发布 · 2.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #windows #integer #function #path #c

Delphi 专栏收录该内容

9 篇文章

订阅专栏

本文介绍了一个简单的Delphi函数，用于获取Windows系统的特定目录路径，例如Windows目录。通过调用Windows API函数并传递适当的参数（如CSIDL_WINDOWS），可以轻松地获取所需的系统文件夹位置。

参数参见Msdn：http://msdn.microsoft.com/en-us/library/bb762494(v=vs.85).aspx

引用

uses ShlObj

传递相关参数即可，如传递CSIDL_WINDOWS可获取Windows目录路径：

ShowMessage(GetFolderPath(CSIDL_WINDOWS)); // C:\WINDOWS

函数：

// 获取系统相关路径
function GetFolderPath(nFolder: Integer): string;
var
  pList: PItemIDList;
  cPath: array [0 .. MAX_PATH] of Char;
begin
  Result := '';
  ZeroMemory(@cPath, sizeof(cPath));
  if SHGetSpecialFolderLocation(0, nFolder, pList) = S_OK then
    if SHGetPathFromIDList(pList, cPath) then
      Result := StrPas(cPath);
end;