检查文件是否正在使用(EXE,DLL)的例子Delphi