Dateiformat und Dateigröße auslesen..

[sharkx]

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.