用那一个函数判断，指定文件目前是否被打开？

Question

AssignFile(lc_file,'d:\a123.txt');if (lc_file被打开) then CloseFile(lc_file);请问：
用那一个函数判断，lc_file文件目前是否被打开。就是指如果判断是否使用过如下语句。
Reset(lc_file);
Rewrite(lc_file);

Answer 1

你试试这个能行吗?
function IsFileInUse(fName: string): Boolean;
var
  HFileRes: HFILE;
begin
  Result := False;
  if not FileExists(fName) then
    Exit;
  HFileRes := CreateFile(PChar(fName), GENERIC_READ or GENERIC_WRITE, 0, nil,
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  Result := (HFileRes = INVALID_HANDLE_VALUE);
  if not Result then
    CloseHandle(HFileRes);
end;