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

RxFPC:fix work on windows with non ansi (russian) chars in windows user name

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3976 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2015-03-02 08:01:34 +00:00
parent f92da238ee
commit 0121737d96
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -75,7 +75,7 @@ function IniReadInteger(IniFile: TObject; const Section, Ident:string;
function GetDefaultIniRegKey: string; function GetDefaultIniRegKey: string;
implementation implementation
uses Registry, Forms, FileUtil; uses Registry, Forms, FileUtil, LazUTF8;
function GetDefaultSection(Component: TComponent): string; function GetDefaultSection(Component: TComponent): string;
var var
@ -113,8 +113,8 @@ begin
else else
begin begin
Result := ExtractFileName(ChangeFileExt(Application.ExeName, '.ini')); Result := ExtractFileName(ChangeFileExt(Application.ExeName, '.ini'));
S:=GetAppConfigDir(false); S:=SysToUTF8(GetAppConfigDir(false));
ForceDirectory(S); ForceDirectoriesUTF8(S);
Result:=S+Result; Result:=S+Result;
end; end;
end; end;