或者使用这个函数<br><br>{-----------------------------------------------------------------------------<br> 函数名称: IsFileInUse<br> 作者: Levon819@msn.com<br> 日期: 2007-四月-09<br> 参数: const fName: string<br> 结果: Boolean<br> 功能: 判断文件是否正在使用;<br>-----------------------------------------------------------------------------}<br><br>Function IsFileInUse(Const fName: String): BOOLEAN;<br>Var<br> HFileRes: HFILE;<br>Begin<br> Result := false;<br> If Not FileExists(fName) Then<br> Exit;<br> HFileRes := CreateFile(PChar(fName), GENERIC_READ Or GENERIC_WRITE,<br> 0 {this is the trick!}, Nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);<br> Result := (HFileRes = INVALID_HANDLE_VALUE);<br> If Not Result Then<br> CloseHandle(HFileRes);<br>End;