Работа с Windows

← →
Inq (2003-11-04 22:36) [0]

Люди, подскажите пожалуйста, как в Delphi узнать максимальный размер Корзины.

← →
NikNet © (2003-11-05 10:57) [1]

Корзина это обычная папка пройдись по всем файлам и пощетай сколько весит каждая а потом всё сумируй

А как найти такую процедуру я тибе дам

Function FileFind(Dir{Сдесь полный путь к папке "C:\Recyled" точно не помнб имя},FindName{А здесь маска "*.*"} :String):String;
Procedure SearchDir(Dir :String);
Var
SRec :TSearchRec;
begin
if Dir[Length(Dir)] <> "\" then Dir := Dir+"\";
FindFirst(Dir + FindName,faAnyFile, SRec);
Repeat
Application.ProcessMessages;
begin
Application.ProcessMessages;
With SRec do
if Attr and (faVolumeID + faDirectory) = 0 then
If UpperCase(FindName) = UpperCase(Name)Then
{--------------------------------------------------------------}
Вот здесь и щетай
Result:=Dir+Name;
{--------------------------------------------------------------}
Application.ProcessMessages;
end;
Application.ProcessMessages;
Until FindNext(SRec) <> 0;
FindFirst(Dir+"*.*", faDirectory or faReadOnly or faHidden or faSysFile, SRec);
Repeat
Application.ProcessMessages;
begin
Application.ProcessMessages;
With SRec do
if (Attr and faDirectory <> 0) and (Name[1] <> ".") then
SearchDir(Dir+Name);
Application.ProcessMessages;
end;
Application.ProcessMessages;
Until FindNext(SRec) <> 0;
end;
begin
SearchDir(Dir);
end;

← →
Е-Моё имя © (2003-11-05 12:52) [2]

> пройдись по всем файлам и пощетай сколько весит каждая а
> потом всё сумируй

а если прав зайти в папку нет?

← →
WithOut Any ... © (2003-11-05 13:08) [3]

ИМХО максимальный объем корзины на текущий момент равен свободному месту на диске.

> WithOut Any ... © (05.11.03 13:08) [3]
> ИМХО максимальный объем корзины на текущий момент равен
> свободному месту на диске

Ага! Щаз!!! В процентах от объема диска он ставится. Ну можно, конечно и 100% зарядить, кому как нравится...

Работа с Windows Найти похожие ветки