各位大虾，怎样以独占的方式打开一个文件？（如:d:\a.txt文件）

Question

各位大虾，怎样以独占的方式打开一个文件？（如:d:\a.txt文件），在线等待。

Answer 1

var
  FileHandle : Integer;
begin
  FileHandle := FileOpen(FileName, fmOpenWrite or fmShareDenyRead );
  if FileHandle > 0 then
    {valid file handle}
  else
    {Open error: FileHandle = negative DOS error code}
end;

Answer 2

FileOpen('d:\a.txt', fmOpenReadWrite + fmShareExclusive);

Answer 3

criticalsection，这个东西好像也可以。（单词不一定写对了。)

Answer 4

CreateFile(g_szFileNamePath, // g_szFileNamePath, 
GENERIC_READ or GENERIC_WRITE,
0,   // can't be share
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);