函数:GetAppDataPath 获得AppData目录

在Win7,10系统里,我们的程序往往不具有管理员权限,如果我们的程序安装到C盘, 又想写数据,往往写入失败,所以,我们可以选择写在AppData目录里,AppData的目录是不需要权限的,获取程序的AppData目录方法如下:


    Uses   System.SysUtils;


function GetAppDataPath: string;

begin

   Result := IncludeTrailingPathDelimiter(GetEnvironmentVariable('APPDATA') + '\' + ChangeFileExt(ExtractFileName(ParamStr(0)), ''));

end;


如图,获取的路径:




学习大师原创函数,严禁转载,侵权必究;

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678