お気に入りをバックアップするようにした(強制)。

diff --git a/Favorite.pas b/Favorite.pas
index ea0b032..7e6cbb3 100644 (file)
--- a/Favorite.pas
+++ b/Favorite.pas
@@ -444,6 +444,7 @@ var
        SaveList: TStringList;
 begin
        FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
+       MoveFile( PChar( FileName ), PChar( GikoSys.GetConfigDir + '~' + FAVORITE_FILE_NAME ) );
        SaveList := TStringList.Create;
        try
                SaveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>');