configフォルダが存在しない時に落ちるバグを修正

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 7eb5c23..990fbcc 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -215,16 +215,16 @@ begin
        FSetting := TSetting.Create;
        FDolib := TDolib.Create;
        FAWKStr := TAWKStr.Create(nil);
-               FAbon := TAbon.Create;
-               FAbon.Setroot(GetConfigDir+NGWORDs_DIR_NAME);
-               //FAbon.SetNGwordpath(DEFAULT_NGWORD_FILE_NAME);
-        FAbon.GoHome;
-               FSelectResFilter := TAbon.Create;
-               //FSelectResFilter.Setroot( GetAppDir );
-               // \8di\82ç\82È\82¢\8fê\8d\87\82Í False \82È\82Ì\82Å\82¢\82ç\82È\82¢
-               // FSelectResFilter.Reverse := True;
-               // \8di\82è\8d\9e\82Þ\82Æ\82«\82Í\8bÉ\97Í\88ê\97\97\82ª\8c©\82ç\82ê\82é\82Ù\82¤\82ª\82¢\82¢\82Ì\82Å\91¼\82Í\8a®\91S\82É\8dí\8f\9c
-               FSelectResFilter.AbonString := '';
+    if DirectoryExists(GetConfigDir) = false then begin
+       CreateDir(GetConfigDir);
+    end;
+       FAbon := TAbon.Create;
+       FAbon.Setroot(GetConfigDir+NGWORDs_DIR_NAME);
+    //FAbon.SetNGwordpath(DEFAULT_NGWORD_FILE_NAME);
+    FAbon.GoHome;
+    FSelectResFilter := TAbon.Create;
+       // \8di\82è\8d\9e\82Þ\82Æ\82«\82Í\8bÉ\97Í\88ê\97\97\82ª\8c©\82ç\82ê\82é\82Ù\82¤\82ª\82¢\82¢\82Ì\82Å\91¼\82Í\8a®\91S\82É\8dí\8f\9c
+       FSelectResFilter.AbonString := '';
 end;
 
 (*************************************************************************