Ich persöhnlich bevorzuge folgenden source für die dateigrösse zu ermitteln:
Code:
function GetFileSize(Filename: string): integer;
var
SR: TSearchRec;
begin
if FindFirst(Filename, faAnyFile, SR) = 0 then
begin
Result := SR.Size;
end
else
begin
Result := -1;
end;
FindClose(SR);
end;
Warum ich den nehm? kA .. :>
Das ganze noch in einem Label anzeigen lassen:
Code:
Label1.Caption := 'Die Datei' + Dateiname + 'hat ' + (GetFileSize(dateiname) / 1024) + 'kb';
Der letzte Source habsch nu einfach ausm Kopf geschrieben, ohne zu testen, sollte aber kein fehler drinnen sein.