判断文件是否正在被使用

 //判断文件是否正在被使用。如果被使用 返回1 ，否则返回0
function IsFileInUse(fName: string ): boolean;
var
      HFileRes: HFILE;
begin
    Result :=false;
   if not FileExists(fName) then exit;
HFileRes :=CreateFile(pchar(fName), GENERIC_READ
   or GENERIC_WRITE,0, nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
   Result :=(HFileRes=INVALID_HANDLE_VALUE);
   if not Result then
   CloseHandle(HFileRes);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if IsFileInUse('D:/py/a walk to remember.doc') then
  showmessage('file in use');
end;