一个读文件的问题

Question

try
    imaFile:=TFileStream.Create(FFileName,fmOpenRead or fmShareDenyWrite );
  except
    //imaFile.Free;
    Result := nil;
    exit;
  end;
为什么我这样写，单独运行EXE文件的时候，还是会出现
系统报错的对话框？
就在CREATE的时候报错，因为另外一个进程在写文件，而
我又去读它。有没有办法先检测一下文件有没有另外的进程
访问？至少，我希望不要出现系统报错的对话框。

Answer 1

function IsUse(FileName: string): Boolean;
begin
  hFile := FileOpen(FileName, fmOpenRead or fmShareDenyWrite);
  Result := INVALID_HANDLE_VALUE = hFile;
  if not Result then
    CloseHandle(hFile);  
end;