Delphi を使ってシステムパスを取得する方法は何ですか?

Delphiでは、以下の方法でシステムパスを取得できます：

1. SysUtilsユニットの特別なフォルダーパスの定数を使用する。具体的に次の通り。

uses
SysUtils;
var
systemPath: string;
begin
systemPath := SysUtils.GetEnvironmentVariable('windir'); // 获取 Windows 系统文件夹路径
// 或者
systemPath := SysUtils.GetEnvironmentVariable('systemroot'); // 获取 Windows 系统根文件夹路径
end;

1. 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;

実際の状況に応じて、コードサンプルのパス定数と関数を調整する必要があります。