From 0121737d96320e5a5df3e31c7f3bccdab2e0a15a Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 2 Mar 2015 08:01:34 +0000
Subject: [PATCH] RxFPC:fix work on windows with non ansi (russian) chars in
 windows user name

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3976 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxapputils.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/rx/trunk/rxapputils.pas b/components/rx/trunk/rxapputils.pas
index 2f84e5b2f..74c661494 100644
--- a/components/rx/trunk/rxapputils.pas
+++ b/components/rx/trunk/rxapputils.pas
@@ -75,7 +75,7 @@ function IniReadInteger(IniFile: TObject; const Section, Ident:string;
 
 function GetDefaultIniRegKey: string;
 implementation
-uses Registry, Forms, FileUtil;
+uses Registry, Forms, FileUtil, LazUTF8;
 
 function GetDefaultSection(Component: TComponent): string;
 var
@@ -113,8 +113,8 @@ begin
   else
   begin
     Result := ExtractFileName(ChangeFileExt(Application.ExeName, '.ini'));
-    S:=GetAppConfigDir(false);
-    ForceDirectory(S);
+    S:=SysToUTF8(GetAppConfigDir(false));
+    ForceDirectoriesUTF8(S);
     Result:=S+Result;
   end;
 end;