Ich sag's mal so: Selbst in Delphi 2010 müßtest du alle Dateien auflisten und deren Größen zusammenzählen, um die "Ordnergröße" zu bekommen.
Und sogar der Eigenschaften-Dialog vom Explorer macht es so.
[add]
falls du die Suche nicht selber implementieren willst:
Delphi-Quellcode:
uses
FindFiles;
type
TMyForm = class(TForm)
...
private
Größe: Int64;
procedure OnFindFile(Sender: TFindFiles; Directory, FileName: string;
Level: Integer; const Info: TWin32FindData; var Cancel: Boolean);
end;
procedure TMyForm.OnFindFile(Sender: TFindFiles; Directory, FileName: string;
Level: Integer; const Info: TWin32FindData; var Cancel: Boolean);
begin
Größe := Größe + Int64(Info.nFileSizeHigh) shl 32 + Info.nFileSizeLow;
end;
Größe := 0;
FF := TFindFiles.Create;
try
FF.Find('C:\irgendwo');
finally
FF.Free;
end;
Label1.Caption := IntToStr(Größe);
//oder
Größe := 0;
TFindFiles.Create('C:\irgendwo', '*.*', True, OnFindFile);
Label1.Caption := IntToStr(Größe);
http://www.delphipraxis.net/internal...150098#1150098