Commit: 61888e3ed47d4aa92be4d4fdb5b89af108ae8067 - gikonavi (git)

ギコナビ

Commit MetaInfo

• Revision: 61888e3ed47d4aa92be4d4fdb5b89af108ae8067 (tree)
• Time: 2009-01-25 18:38:22
• Author: cvs2git <cvs2git>
• Commiter: cvs2git

Log Message

This commit was manufactured by cvs2svn to create tag 'v1_59_0_777'.

Change Summary

• modified: Setting.pas
• modified: gikoNavi.res
• modified: readme/gikoSetup.iss
• modified: readme/gikoUSetup.iss

Incremental Difference

--- a/Setting.pas
+++ b/Setting.pas
@@ -1333,15 +1333,6 @@ begin
 
         FCheckDatFile := ini.ReadBool('ThreadList', 'CheckDatFile', True);
         FLimitResCountMessage := ini.ReadBool('Thread', 'LimitResCountMessage', True);
-
-        // ƒMƒRƒiƒrXV‚Å—˜—p‚µ‚½ƒCƒ“ƒXƒg[ƒ‰‚̍폜
-        s := ini.ReadString('Update', 'Remove0', '');
-        if (FileExists(s)) then begin
-            SysUtils.DeleteFile(s);
-            // íœ‚ÉŽ¸”s‚µ‚Ä‚à–³Ž‹‚·‚é
-            ini.DeleteKey('Update', 'Remove0');
-        end;
-
 		ini.UpdateFile;
 	finally
 		ini.Free;

Binary files a/gikoNavi.res and b/gikoNavi.res differ

--- a/readme/gikoSetup.iss
+++ b/readme/gikoSetup.iss
@@ -56,9 +56,6 @@ Name: japanese; MessagesFile: compiler:Languages\Japanese.isl
 
 [Code]
 procedure CurStepChanged(CurStep: TSetupStep);
-var
-  path :String;
-  srcpath: String;
 begin
   case CurStep of
     ssInstall:
@@ -78,15 +75,6 @@ begin
               end;
           end;
       end;
-    ssPostInstall:
-      begin
-        path := ExpandConstant('{app}') + '\gikoNavi.ini';
-        srcpath := ExpandConstant('{srcexe}');
-        if (FileExists(path)) then
-        begin
-          SetIniString('Update', 'Remove0', srcpath, path);
-        end;
-      end;
   end;
 
 end;

--- a/readme/gikoUSetup.iss
+++ b/readme/gikoUSetup.iss
@@ -18,8 +18,8 @@ SourceDir=G:\Release
 OutputDir=G:\InnoSetup\Output
 SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico"
 ; ƒMƒRƒiƒr‚̃o[ƒWƒ‡ƒ“‚É‚ ‚킹‚Ä‚­‚¾‚³‚¢
-VersionInfoVersion=1.59.0.778
-OutputBaseFilename=gikoNavi_b59_778_usetup
+VersionInfoVersion=1.59.0.777
+OutputBaseFilename=gikoNavi_b59_777_usetup
 CreateUninstallRegKey=no
 
 [Tasks]
@@ -103,9 +103,6 @@ begin
 end;
 
 procedure CurStepChanged(CurStep: TSetupStep);
-var
-  path :String;
-  srcpath: String;
 begin
   case CurStep of
     ssInstall:
@@ -125,15 +122,6 @@ begin
               end;
           end;
       end;
-      ssPostInstall:
-      begin
-        path := ExpandConstant('{app}') + '\gikoNavi.ini';
-        srcpath := ExpandConstant('{srcexe}');
-        if (FileExists(path)) then
-        begin
-          SetIniString('Update', 'Remove0', srcpath, path);
-        end;
-      end;
   end;
 
 end;