阅读量:4
在Delphi中,可以使用以下方法来获取系统路径:
- 使用 SysUtils 单元中的特殊文件夹路径常量,如下所示:
uses SysUtils; var systemPath: string; begin systemPath := SysUtils.GetEnvironmentVariable('windir'); // 获取 Windows 系统文件夹路径 // 或者 systemPath := SysUtils.GetEnvironmentVariable('systemroot'); // 获取 Windows 系统根文件夹路径 end;
- 使用 ShellAPI 单元中的 SHGetSpecialFolderPath 函数,如下所示:
uses ShellAPI; var systemPath: array[0..MAX_PATH] of Char; begin if SHGetSpecialFolderPath(0, systemPath, CSIDL_WINDOWS, False) then // 获取 Windows 系统文件夹路径 ShowMessage(systemPath); // 或者 if SHGetSpecialFolderPath(0, systemPath, CSIDL_SYSTEM, False) then // 获取 Windows 系统根文件夹路径 ShowMessage(systemPath); end;
请注意,以上代码示例中的路径常量和函数可能需要根据您的实际需求进行调整。