Delphi-Quellcode:
var
F: file of Byte;
errorCode : Integer;
begin
Assign(F, ParamStr(1));
{$I-}
Reset(F);
{$I+}
errorCode := IOResult;
if errorCode = 0 then
Writeln('Dateigröße in Byte ', FileSize(F))
else
Writeln('Fehler aufgetreteten (' +IntToStr(errorCode)+')');
end.
.. und irgendwo gab es auch noch eine Routine um den ErrorCode (Integer) in einen Text zu wandeln.
Grüße
Klaus