Delphi GetEnvironmentVariable 讀取系統環境變數速查表：風資料夾、系統路徑、處理器資訊一覽

前言

GetEnvironmentVariable 是 Delphi 讀取 Windows 環境變數的標準 API。本文整理開發中最常用的系統環境變數對照表，涵蓋系統路徑、使用者設定檔、臨時目錄、處理器資訊等，並提供直接可用的程式碼片段。

核心函數宣告

uses Windows, SysUtils;

function GetEnvVar(const Name: string): string;
var
  Buf: array[0..1023] of Char;
  Len: DWORD;
begin
  Len := GetEnvironmentVariable(PChar(Name), Buf, SizeOf(Buf));
  if Len > 0 then
    SetString(Result, Buf, Len)
  else
    Result := ''; // 變數不存在
end;

// 簡易版 (SysUtils 內建)
function GetEnv(const Name: string): string;
begin
  Result := GetEnvironmentVariable(Name);
end;

常用環境變數完整對照表

實用程式碼片段

1. 取得特殊資料夾路徑 (推薦用 SHGetKnownFolderPath)

uses ShlObj, ActiveX;

function GetKnownFolder(const FolderID: TGUID): string;
var
  Path: PWideChar;
begin
  Result := '';
  if SHGetKnownFolderPath(FolderID, 0, 0, Path) = S_OK then
  try
    Result := Path;
  finally
    CoTaskMemFree(Path);
  end;
end;

// 使用範例
var
  Desktop, Documents, Downloads: string;
begin
  Desktop := GetKnownFolder(FOLDERID_Desktop);       // 桌面
  Documents := GetKnownFolder(FOLDERID_Documents);   // 文件
  Downloads := GetKnownFolder(FOLDERID_Downloads);   // 下載
  // 更多 FOLDERID_* 常數定義於 ShlObj 單元
end;

2. 展開環境變數字串

uses Windows;

function ExpandEnvStr(const Str: string): string;
var
  Buf: array[0..4095] of Char;
  Len: DWORD;
begin
  Len := ExpandEnvironmentStrings(PChar(Str), Buf, SizeOf(Buf));
  if Len > 0 then
    SetString(Result, Buf, Len - 1) // 扣除結尾 #0
  else
    Result := Str;
end;

// 使用
ShowMessage(ExpandEnvStr('%USERPROFILE%\Documents')); // 實際路徑

3. 列印所有環境變數 (除錯用)

procedure ListAllEnvVars(Strings: TStrings);
var
  EnvBlock: PWideChar;
  P: PWideChar;
  S: string;
  EqPos: Integer;
begin
  EnvBlock := GetEnvironmentStringsW;
  if EnvBlock = nil then Exit;
  try
    P := EnvBlock;
    while P^ <> #0 do
    begin
      S := P;
      EqPos := Pos('=', S);
      if EqPos > 0 then
        Strings.Add(Copy(S, 1, EqPos - 1) + '=' + Copy(S, EqPos + 1, MaxInt));
      Inc(P, Length(S) + 1);
    end;
  finally
    FreeEnvironmentStringsW(EnvBlock);
  end;
end;

4. 設定當前目錄與取得

var
  CurDir: string;
begin
  CurDir := GetCurrentDir; // SysUtils
  ShowMessage(CurDir);
  
  SetCurrentDir('..'); // 切換到父目錄
  CurDir := GetCurrentDir;
  ShowMessage(CurDir);
  
  SetCurrentDir('..\..');
  CurDir := GetCurrentDir;
  ShowMessage(CurDir);
end;

注意事項

• 權限：系統層級變數 (如 WINDIR) 需管理員權限才能修改，但讀取無限制。
• 執行緒/進程隔離：SetEnvironmentVariable 只影響當前進程及子進程，不影響系統或其他進程。
• 32/64-bit 重導向：32-bit 進程在 64-bit OS 讀取 %PROGRAMFILES% 會自動重導向至 Program Files (x86)，需用 %PROGRAMW6432% 取得真實 64-bit 路徑。
• Unicode：Delphi 2009+ GetEnvironmentVariable 為 Unicode 版 (GetEnvironmentVariableW)，直接支援中文路徑。

結語

熟悉核心環境變數名稱，配合 GetEnvironmentVariable/ExpandEnvironmentStrings/SHGetKnownFolderPath，即能編寫跨版本、跨使用者、跨架構的路徑處理程式碼。建議將常用路徑取得邏輯封裝為工具單元，統一管理、易於維護。