paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 09:30:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* global appconfig dir needs to be common_appdata directory

Browse Source 
git-svn-id: trunk@10068 -
This commit is contained in:
peter 2008-01-27 19:55:05 +00:00
parent 601bc7345e
commit 50a9dcd5f9
1 changed files with 7 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/win/sysutils.pp
View File

@ -1040,32 +1040,20 @@ Function GetAppConfigDir(Global : Boolean) : String;
begin
If Global then
Result:=DGetAppConfigDir(Global) // or use windows dir ??
Result:=GetSpecialDir(CSIDL_COMMON_APPDATA)+ApplicationName
else
begin
Result:=GetSpecialDir(CSIDL_LOCAL_APPDATA)+ApplicationName;
If (Result='') then
Result:=DGetAppConfigDir(Global);
end;
If (Result='') then
Result:=DGetAppConfigDir(Global);
end;
Function GetAppConfigFile(Global : Boolean; SubDir : Boolean) : String;
begin
if Global then
begin
Result:=IncludeTrailingPathDelimiter(DGetAppConfigDir(Global));
if SubDir then
Result:=IncludeTrailingPathDelimiter(Result+'Config');
Result:=Result+ApplicationName+ConfigExtension;
end
else
begin
Result:=IncludeTrailingPathDelimiter(GetAppConfigDir(False));
if SubDir then
Result:=Result+'Config\';
Result:=Result+ApplicationName+ConfigExtension;
end;
Result:=IncludeTrailingPathDelimiter(GetAppConfigDir(Global));
if SubDir then
Result:=IncludeTrailingPathDelimiter(Result+'Config');
Result:=Result+ApplicationName+ConfigExtension;
end;
Procedure InitSysConfigDir;