掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
使用中ファイルを強制削除するには (ID:37847)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
http://www.vector.co.jp/soft/winnt/util/se399372.html これはファイル掴んでるスレッドでクローズしてるね。 なので procedure LogWrite (Text:String); var I: Integer; Buffer: array[0..255] of Char; begin if FileHandle <> -1 then begin StrPCopy(Buffer,Text); I := FileWrite (FileHandle,Buffer,Length(Text)); if (I = -1 or I) <> (I <> Length(Text)) then begin //エラー発生 FileClose(FileHandle); FileHandle := -1; end; end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin FileClose(FileHandle); end; procedure TForm1.FormCreate(Sender: TObject); begin FileHandle := FileCreate('C:\AAAA.TXT'); end; みたいにログ再作成を出来るようにしていないと その時点でログの出力は行われなくなる
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.