如何判断某文件是否已打开

Question

assignfile(F ,filename);
    reset(F);      //偶尔会在此次报错，IO errors 103
    readln(F,diratt);
    closeFile(F);  我查帮助，它说这样的错误可能是文件没有打开时使用closeFile(F); 而我觉得似乎是由于文件没有关闭而reset(F 报错的。 所有想问问如何判断某文件是否已打开

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;