pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

rxapputils - fix russian chars in application config folders

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3481 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-08-14 09:40:49 +00:00
parent 826a3e4b20
commit 24fa5b714c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/trunk/rxapputils.pas
View File

@ -113,8 +113,8 @@ begin
else else
begin begin
Result := ExtractFileName(ChangeFileExt(Application.ExeName, '.ini')); Result := ExtractFileName(ChangeFileExt(Application.ExeName, '.ini'));
S:=UTF8ToSys(GetAppConfigDir(false)); S:=GetAppConfigDir(false);
ForceDirectoriesUTF8(S); ForceDirectory(S);
Result:=S+Result; Result:=S+Result;
end; end;
end; end;