Another file system encoding fix for TfpgINIFile

- fpgApplicationName() wrapper for SyUtils.ApplicationName
- TfpgINIFile reference ApplicationName, instead of fpgApplicationName
- In TfpgINIFile we forgot to encode the file name back to the system
  encoding before we called Create().

1 files changed, 6 insertions, 0 deletions

diff --git a/src/corelib/fpg_utils.pas b/src/corelib/fpg_utils.pas
index 9d0e907d..50167276 100644
--- a/src/corelib/fpg_utils.pas
+++ b/src/corelib/fpg_utils.pas
@@ -51,6 +51,7 @@ function fpgIsBitSet(const AData: integer; const AIndex: integer): boolean;
  // RTL wrapper filesystem functions with platform independant encoding
  // These functions are common for all platforms and rely on fpgXXXPlatformEncoding
 
+function fpgApplicationName: TfpgString;
 function fpgFindFirst(const Path: TfpgString; Attr: longint; out Rslt: TSearchRec): longint;
 function fpgFindNext(var Rslt: TSearchRec): longint;
 function fpgGetCurrentDir: TfpgString;
@@ -101,6 +102,11 @@ begin
     Result := ALine;
 end;
 
+function fpgApplicationName: TfpgString;
+begin
+  Result := fpgFromOSEncoding(ApplicationName);
+end;
+
 function fpgFindFirst(const Path: TfpgString; Attr: longint; out Rslt: TSearchRec): longint;
 begin
   Result    := FindFirst(fpgToOSEncoding(Path), Attr, Rslt);