バックアップファイルが更新されない不具合の修正

diff --git a/Favorite.pas b/Favorite.pas
index c6e6b27..13eaf5e 100644 (file)
--- a/Favorite.pas
+++ b/Favorite.pas
@@ -446,11 +446,17 @@ begin
        XMLDoc.SaveToFile(FileName);
 }
 var
-       FileName: string;
+       FileName, tmpFileName: string;
        SaveList: TStringList;
+
 begin
        FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
-       MoveFile( PChar( FileName ), PChar( GikoSys.GetConfigDir + '~' + FAVORITE_FILE_NAME ) );
+       if FileExists(FileName) then begin
+               tmpFileName := GikoSys.GetConfigDir + '~' + FAVORITE_FILE_NAME;
+               if FileExists(tmpFileName) then
+                       SysUtils.DeleteFile(tmpFileName); //SysUtils.\82ð\82Â\82¯\82È\82¢\82ÆWinAPI\82Æ\8bæ\95Ê\82Å\82«\82È\82¢\82Ì\82Å
+               RenameFile(FileName, tmpFileName);
+       end;
        SaveList := TStringList.Create;
        try
                SaveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>');