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 ?