Dateigröße ermitteln, während die Datei ausgeführt wird???

[Karl-Heinz]

Hallo nochmal,
ich bin etwas unsicher geworden Ich nutze eine ähnliche Funktion selbst in einer Bibliothek immer wieder und habe nochmal nachgeguckt. Ich habe es damals nicht mit der Windows-Api gemacht, sondern mit TFileStream:

Delphi-Quellcode:

function FSize(fname: String): int64;
var
   t : tfilestream;
begin
   result := - 1;
     try
        t := tfilestream.create(fname,fmopenread or fmShareDenyNone);
       result := t.size;
       t.free;
     except
        exit;
     end;
end;

fmShareDenyNone ist wichtig.

Karl-Heinz Krönig