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

* fix GetAppConfigDir and GetTmpDir for Windows(R)(c)(TM) and WinCE, unify with unix and provide pathdelim at end

Browse Source 
git-svn-id: trunk@11529 -
This commit is contained in:
Almindor 2008-08-07 10:22:30 +00:00
parent e308297fce
commit 4a54f15b47
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/win/sysutils.pp
View File

@ -1050,10 +1050,10 @@ begin
begin
if VendorName<>'' then
Result:=IncludeTrailingPathDelimiter(Result+VendorName);
Result:=Result+ApplicationName;
Result:=IncludeTrailingPathDelimiter(Result+ApplicationName);
end
else
Result:=DGetAppConfigDir(Global);
Result:=IncludeTrailingPathDelimiter(DGetAppConfigDir(Global));
end;
Function GetAppConfigFile(Global : Boolean; SubDir : Boolean) : String;

5
rtl/wince/sysutils.pp
View File

@ -749,10 +749,10 @@ begin
begin
if VendorName<>'' then
Result:=IncludeTrailingPathDelimiter(Result+VendorName);
Result:=Result+ApplicationName;
Result:=IncludeTrailingPathDelimiter(Result+ApplicationName);
end
else
Result:=DGetAppConfigDir(Global);
Result:=IncludeTrailingPathDelimiter(DGetAppConfigDir(Global));
end;
Function GetAppConfigFile(Global : Boolean; SubDir : Boolean) : String;
@ -768,6 +768,7 @@ begin
SetLength(buf, MAX_PATH);
SetLength(buf, GetTempPath(Length(buf) + 1, PWideChar(buf)));
Result:=buf;
Result := IncludeTrailingPathDelimiter(Result);
end;
{****************************************************************************