如何获得在Delphi中锁定文件的句柄?

你可以使用 锁文件 功能与 CreateFile 和 UnlockFile 功能。

请参阅此示例

procedure TFrmMain.Button1Click(Sender: TObject);
var
  aHandle     : THandle;
  aFileSize   : Integer;
  aFileName   : String;
begin
    aFileName    :='C:\myfolder\myfile.ext';
    aHandle      := CreateFile(PChar(aFileName),GENERIC_READ, 0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0); // get the handle of the file
    try
        aFileSize   := GetFileSize(aHandle,nil); //get the file size for use in the  lockfile function
        Win32Check(LockFile(aHandle,0,0,aFileSize,0)); //lock the file
        //your code
        //
        //
        //
        Win32Check(UnlockFile(aHandle,0,0,aFileSize,0));//unlock the file
    finally
    CloseHandle(aHandle);//Close the handle of the file.
    end;

end;

另一个选项是,如果要使用tfilestream锁定文件,可以使用独占访问(fmshareExclusive)打开文件。

Var
MyStream :TFilestream;
begin
  MyStream := TFilestream.Create( aFileName, fmOpenRead or fmShareExclusive ); 

end;

注释 :在这两个示例中,访问都是只读的,必须更改标志才能写入文件。

实际上,这很简单。tfilestream有一个handle属性,它为您提供该文件的Windows句柄。如果您使用的是其他类型的流,那么就没有可以使用的底层文件。

另一个选项是创建具有独占读/写访问权的文件流:

fMask := fmOpenReadWrite or fmShareExclusive;
if not FileExists(Filename) then
  fMask := fMask or fmCreate;
fstm := tFileStream.Create(Filename,fMask);

你可以找到一个完整的样本来使用 锁文件 美国石油学会 here . 它用于检测网络中使用的计算机。它是用Delphi6编译的,包含了源代码。

请原谅我的英语不好。

当做。