Delphi 6 SysUtils 單元函數速查手冊（五）：安全載入庫、環境變數、原子操作、GUID 與套件管理

本文為 Delphi 6 SysUtils.pas 函數大全系列第五部分，涵蓋 Kylix 相關訊號處理、動態載入庫、例外訊息處理、多位元組字元 (MBCS) 處理、路徑分隔符操作、字串替換/換行、命令列參數解析、物件釋放輔助、介面支援檢查、GUID 操作、套件載入/資訊、作業系統錯誤觸發、終止程序管理、安全載入庫、環境變數 及 原子操作。

重點函數分類速查

1. 動態載入庫與模組資訊

2. 例外與錯誤處理

3. 多位元組字元 (MBCS) 字串處理

4. 路徑與分隔符操作

5. 字串比較與檔名處理

6. 進階字串操作

7. GUID 操作

8. 套件 (Package) 管理

9. 終止程序管理

• AddTerminateProc：註冊程式結束時執行的程序
• CallTerminateProcs：執行所有終止程序 (不建議手動呼叫)

10. 安全載入庫與環境變數

11. 原子操作 (Kylix/多執行緒)

• InterlockedIncrement/Decrement：原子增減
• InterlockedExchange：原子交換
• InterlockedExchangeAdd：原子累加

實用範例精選

取得模組檔名

var vHandle: THandle;
begin
  vHandle := LoadLibrary(PChar(Edit1.Text));
  Caption := GetModuleName(vHandle);
  FreeLibrary(vHandle);
end;

建立 GUID

var vGUID: TGUID;
begin
  CreateGUID(vGUID);
  Edit1.Text := GUIDToString(vGUID);
end;

安全載入庫並抑制錯誤視窗

var hMod: HMODULE;
begin
  hMod := SafeLoadLibrary('mylib.dll');
  if hMod <> 0 then begin
    // GetProcAddress...
    FreeLibrary(hMod);
  end;
end;

環境變數讀寫

SetEnvironmentVariable('MY_VAR', 'TestValue');
ShowMessage(GetEnvironmentVariable('MY_VAR')); // 顯示 TestValue

SysUtils 是 Delphi 核心工具單元，掌握上述函數能處理 90% 以上的字串、路徑、錯誤、動態載入與系統互動需求。建議搭配 IDE F1 線上說明深入研讀各函數完整簽名與邊界條件。