Rechte zum verschieben einer Datei prüfen

[ebber]

Danke ich habe jetzt was gefunden. Ich hatte vorhin scho ähnliche Sachen gesehen gehabt, aber irgendwie nicht das richtige gefunden.

Delphi-Quellcode:

function IsFileOpen(const FileName: string): Boolean;
var Stream: TFileStream;
begin
  Result := false;
  if not FileExists(FileName) then exit;
  try
    Stream := TFileStream.Create(FileName,fmOpenRead or fmShareExclusive);
  except
    Result := true;
    exit;
  end;
  Stream.Free;
end;

Mit diesem geht das jetzt, aber das funktioniert ja über eine Exeption. Kann ich dem Debugger sagen, dass er nur genau an dieser Stelle keine Exception bringen soll, also nur nicht anzeigen ?