掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストへの二重アクセス (ID：17034)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>後は自力で解決したいと思います。 その心がけスバラシイ！ function WriteData(const strFileName, strLogBuf: string): Boolean; var FileHandle : Integer; begin result := False; if not FileExists(strFileName) then FileHandle := FileCreate(strFileName) // FileHandle := CreateFile(PChar(strFileName), GENERIC_WRITE, FILE_SHARE_WRITE, nil, // {OPEN_ALWAYS} CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0) else FileHandle := FileOpen(strFileName, fmOpenWrite or fmShareDenyNone); if FileHandle > 0 then begin // ここで停止しておけば、二重起動した別アプリがファイルに追加書き込みしても大丈夫 SetFilePointer(FileHandle, 0, nil, FILE_END); // ポインタをファイル末尾に // ここで停止させると、二重起動した別アプリがファイルに追加した時点でポインタが末尾からずれる FileWrite(FileHandle, PChar(strLogBuf)^, Length(strLogBuf)); // 追加書き込み result := True; end; FileClose(FileHandle); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.