Dateiname ohne Pfadangebe vielleicht?
Nein, leider nicht die Ursache. Wenn ich vor
FReader := TFileStream.Create(...);
das hier ergänze:
Delphi-Quellcode:
Directory := GetCurrentDir;
if Directory[Length(Directory)]<>'\' then Directory := Directory + '\';
FReader := TFileStream.Create(Directory + 'Testfile.def', fmOpenRead, fmShareDenyWrite);
erhalte ich dieselbe EFReadError
Exception.
Was also kann ich noch tun?