IOResult der erste Eintrag bei Google
Delphi-Quellcode:
var F: file of Byte;
begin
Assign(F, ParamStr(1));
{$I-}
Reset(F);
{$I+}
if IOResult = 0 then
Writeln('Dateigröße in Byte ', FileSize(F))
else
Writeln('Datei nicht gefunden');
end.
woher weißt du, dass die Datei nicht existiert und nur nicht geöffnet werden kann, weil sie exklusiv von einem anderen Prozess geöffnet wurde?
Es ist doch nur ein Beispiel von Google
Nicht meins um die alten Schalter von Turbo Pascal zu dokumentieren.
Wie sie damals angewendet wurde.
gruss