Zitat von
mkinzler:
Dann überschreib es einfach. Du erhältst dann eine Fehlermeldung, wenn das nicht geht.
-> Möchte aber keine Fehlermeldung haben.
Zitat von
DeddyH:
-> Wenn ich diese Funktion nehme:
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;
-> Kommt die Fehlermeldung: Datei xyz.pdf kann nicht geöffnet werden. Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird.
Gruss
Holger