ギコナビ更新で、利用したインストーラのexeを削除する処理を追加。

[gikonavigoeson/gikonavi.git] / Setting.pas

diff --git a/Setting.pas b/Setting.pas
index 0a7ea21..a0caaab 100644 (file)
--- a/Setting.pas
+++ b/Setting.pas
@@ -1333,6 +1333,15 @@ begin
 
         FCheckDatFile := ini.ReadBool('ThreadList', 'CheckDatFile', True);
         FLimitResCountMessage := ini.ReadBool('Thread', 'LimitResCountMessage', True);
+
+        // \83M\83R\83i\83r\8dX\90V\82Å\97\98\97p\82µ\82½\83C\83\93\83X\83g\81[\83\89\82Ì\8dí\8f\9c
+        s := ini.ReadString('Update', 'Remove0', '');
+        if (FileExists(s)) then begin
+            SysUtils.DeleteFile(s);
+            // \8dí\8f\9c\82É\8e¸\94s\82µ\82Ä\82à\96³\8e\8b\82·\82é
+            ini.DeleteKey('Update', 'Remove0');
+        end;
+
                ini.UpdateFile;
        finally
                ini.Free;