スレッドを削除した後にギコナビを強制終了させると、次回起動時におかしな挙動が発生する問題を修正

diff --git a/BoardGroup.pas b/BoardGroup.pas
index 45156ca..4617aad 100644 (file)
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -1783,12 +1783,18 @@ begin
 end;
 
 procedure TThreadItem.DeleteLogFile;
+var
+        tmpFileName: String;
 begin
        ParentBoard.BeginUpdate;
 
        if FUnRead then
                ParentBoard.UnRead := ParentBoard.UnRead - 1;
        DeleteFile(GetThreadFileName);
+        //\8e\8e\8c±\93I\82Étmp\82à\8dí\8f\9c\82µ\82Ä\82Ý\82é
+        tmpFileName := StringReplace(GetThreadFileName, 'dat', 'tmp', [rfReplaceAll]);
+        DeleteFile(tmpFileName);
+
        if FileExists(ChangeFileExt(GetThreadFileName,'.NG')) = true then
                DeleteFile(ChangeFileExt(GetThreadFileName,'.NG'));
        FRoundDate := ZERO_DATE;