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

uses ShlObj

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;