delphi中判断某个文件是否已经打开

if FileExists(FileName) then
  if (FileOpen(FileName, fmShareExclusive) < 0) then
    ShowMessage('文件已打开');