沒用過的函數 GetHomePath - 獲取用戶程序數據目錄

uses System.IOUtils;

procedure TForm1.FormCreate(Sender: TObject);
var
  S: string;
begin
  { 三種方法結果一致: C:\Users\wy\AppData\Roaming }
  S := GetHomePath;                       // SysUtils, 能跨平台且簡單, 在 Windows 下使用 SHGetFolderPath 完成
  S := TPath.GetHomePath;                 // System.IOUtils
  S := GetEnvironmentVariable('APPDATA'); // 以前一直用這個
end;

---