ファイルにロックをかけるには (ID:48402)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 以前、この掲示板で他のプロセスがファイルを開いていないか 確認する方法を教わったときのソースです。 昔の環境では動くのですが最近の環境ではどうも正常に機能していないようです。 var lh_Handle: THandle; begin lh_Handle := CreateFileW( PWideChar(sFile), //ファイル名 GENERIC_READ, //アクセス権 0, //共有 nil, //セキュリティ属性 OPEN_EXISTING, //ファイルは存在する必要あり 0, //属性 0 //テンプレート ); Result := (lh_Handle <> INVALID_HANDLE_VALUE); CloseHandle(lh_Handle);