Delphi锁定文件禁止修改

代码说明：

Delphi锁定文件禁止修改，以独占方式打开，其他程序不能再打开该文件，并可判断操作对象是硬盘或是文件，都可将其锁定。若锁定失败，则弹出提示。