怎么判断一个文件是否正在使用，求一个算法？(100分)

怎么判断一个文件是否正在使用，一定要NT,98下都能用的。

function IsFileInUse(fName : string ) : boolean; <br>var <br>&nbsp; HFileRes : HFILE; <br>begin <br>&nbsp; Result := false; <br>&nbsp; if not FileExists(fName) then <br>&nbsp; &nbsp; exit; <br>&nbsp; HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0); <br>&nbsp; Result := (HFileRes = INVALID_HANDLE_VALUE); <br>&nbsp; if not Result then <br>&nbsp; &nbsp; CloseHandle(HFileRes); <br>end;

gz