Prüfen, ob eine Datei bereits geöffnet ist


Falls eine Datei bereits geöffnet ist, können Sie sie nicht ein zweites mal öffnen. Möchten Sie prüfen, ob eine Datei bereits von einer anderen Anwendung verwendet wird, dann benutzen Sie die unten stehende Funktion:

function TForm1.Datei_offen(Dateiname: string): boolean;
{liefert true, falls die Datei geöffnet ist, sonst false}
var Datei: TFileStream;
Fehler: boolean;
begin
  Fehler:= false;
  if FileExists(Dateiname) then begin
    try
      Datei:= TFileStream.Create(Dateiname, fmOpenRead);
    except
      on EFOpenError do Fehler:= true;
    end;
    if Fehler = false then Datei.Free;
  end;
  Datei_offen:= Fehler;
end;