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