[gelöst] FileClose und CloseFile schliesst Datei nicht?

[bigg]

Na und was fehlt hier? CloseFile!

Delphi-Quellcode:

function IsFileInUse(FileName: String): Boolean;
var AFile: File;
begin
Result := False;

if FileExists(FileName) then
begin
  AssignFile(AFile, FileName);
  FileMode := fmOpenRead or fmShareDenyNone;

  {$i-}
    Reset(AFile, 1);
  {$i+}

if IOResult <> 0 then
Result := True;

end;
end;

Danke nochmal für die geistige Unterstützung