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;
没用过的函数 GetHomePath - 获取用户程序数据目录
![](https://img2024.cnblogs.com/blog/35695/202408/35695-20240825082459112-376424429.jpg)