Die Function GetFileSize:
Delphi-Quellcode:
function TForm1.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;
Vielen dank für des kleine Programm :>
[edit=Daniel B]Delphi-Tags ergänzt. MfG Daniel B.[/edit]