HAP削除用のCookieを受け付けないように修正

diff --git a/Editor.pas b/Editor.pas
index 99fa72a..a8a6381 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -1931,9 +1931,12 @@ begin
                 ABoard.SPID := Cookie.Value;
                 ABoard.Expires := GMTToLocalDateTime(Cookie.Expires);
             end else if ( Cookie.CookieName = VAL_HAP ) then begin
-                GikoSys.SetBoukenCookie(Cookie.Value, Cookie.Domain);
-                // \96`\8c¯\82Ì\8f\91\82Ì\95Û\91¶
-                GikoSys.Setting.WriteBoukenSettingFile;
+                // HAP\8dí\8f\9c\97p\82ÌCookie\82ª\94z\95z\82³\82ê\82é\82Ì\82Å\81A\97L\8cø\8aú\8cÀ\82ð\83`\83F\83b\83N\82·\82é
+                if CompareDateTime(GMTToLocalDateTime(Cookie.Expires) ,Now) > 0 then begin
+                    GikoSys.SetBoukenCookie(Cookie.Value, Cookie.Domain);
+                    // \96`\8c¯\82Ì\8f\91\82Ì\95Û\91¶
+                    GikoSys.Setting.WriteBoukenSettingFile;
+                end;
             end else begin
                 if Length( curCookies.Values[ Cookie.CookieName ] ) > 0 then begin
                     // \8aù\91¶\92l\82Ì\95t\82¯\91Ö\82¦

diff --git a/gikoNavi.res b/gikoNavi.res
index 26590f2..3c48b28 100644 (file)
Binary files a/gikoNavi.res and b/gikoNavi.res differ

diff --git a/readme/gikoUSetup.iss b/readme/gikoUSetup.iss
index f011824..7018b39 100644 (file)
--- a/readme/gikoUSetup.iss
+++ b/readme/gikoUSetup.iss
@@ -14,12 +14,12 @@ DefaultDirName={pf}\gikonavi
 VersionInfoDescription=\83M\83R\83i\83r\83Z\83b\83g\83A\83b\83v\83v\83\8d\83O\83\89\83\80
 DefaultGroupName=\83M\83R\83i\83r
 ; \8e©\95ª\82Ì\8aÂ\8b«\82É\8d\87\82í\82¹\82Ä\82­\82¾\82³\82¢
-SourceDir=G:\Release61
+SourceDir=G:\Release
 OutputDir=G:\InnoSetup\Output
 SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico"
 ; \83M\83R\83i\83r\82Ì\83o\81[\83W\83\87\83\93\82É\82 \82í\82¹\82Ä\82­\82¾\82³\82¢
-VersionInfoVersion=1.61.1.801
-OutputBaseFilename=gikoNavi_b61_usetup
+VersionInfoVersion=1.62.0.810
+OutputBaseFilename=gikoNavi_b62_810_usetup
 CreateUninstallRegKey=no
 
 [Tasks]