paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-21 23:13:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: better fix for encoding of string returned by GetAppConfigFileUTF8

Browse Source 
(Use WideString variant of GetSpecialDir which retruns UTF8: copy/paste error in r43495 #cba214753b)

git-svn-id: trunk@43611 -
This commit is contained in:
bart 2013-12-29 15:40:16 +00:00
parent 6ae4e11538
commit e2f0b20bc8
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/lazutils/winlazfileutils.inc
View File

@ -644,13 +644,13 @@ Var
WS: WideString;
Len: SizeInt;
begin
Result:='';
if (CFGDLLHandle=0) then
Result := '';
if (CFGDLLHandle = 0) then
InitDLL;
If (SHGetFolderPathW<>Nil) then
If (SHGetFolderPathW <> Nil) then
begin
FillChar(APath, SizeOf(APath), #0);
if SHGetFolderPathW(0,ID or CSIDL_FLAG_CREATE,0,0,@APATH[0])=S_OK then
if SHGetFolderPathW(0,ID or CSIDL_FLAG_CREATE,0,0,@APATH[0]) = S_OK then
begin
Len := StrLen(APath);
SetLength(WS, Len);
@ -673,19 +673,19 @@ end;
function GetAppConfigDirWide(Global: Boolean; Create: boolean = false): string;
begin
If Global then
Result:=GetWindowsSpecialDir(CSIDL_COMMON_APPDATA)
Result := GetWindowsSpecialDirW(CSIDL_COMMON_APPDATA)
else
Result:=GetWindowsSpecialDir(CSIDL_LOCAL_APPDATA);
If (Result<>'') then
Result := GetWindowsSpecialDirW(CSIDL_LOCAL_APPDATA);
If (Result <> '') then
begin
if VendorName<>'' then
Result := AppendPathDelim(Result+VendorName);
Result := AppendPathDelim(Result+ApplicationName);
if VendorName <> '' then
Result := AppendPathDelim(Result + VendorName);
Result := AppendPathDelim(Result + ApplicationName);
end
else
Result := AppendPathDelim(DGetAppConfigDir(Global));
if Result = '' then exit;
if Create and not ForceDirectories(Result) then
if Create and not ForceDirectoriesUtf8(Result) then
raise EInOutError.Create(Format(lrsUnableToCreateConfigDirectoryS,[Result]));
end;
@ -694,9 +694,9 @@ function GetAppConfigFileWide(Global: Boolean; SubDir: boolean;
var
Dir: string;
begin
Result := SysToUTF8(GetAppConfigDirWide(Global));
Result := GetAppConfigDirWide(Global);
if SubDir then
Result := AppendPathDelim(Result+'Config');
Result := AppendPathDelim(Result + 'Config');
Result := Result + ApplicationName + ConfigExtension;
if not CreateDir then exit;
Dir := ExtractFilePath(Result);