没用过的函数 GetHomePath - 获取用户法度数据目次
添加时间:2013-6-17 点击量:
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;
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;