Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с Windows [D7, WinXP]

Inq © (2003-11-04 22:36:00)

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

clickmaker (2003-11-05 14:12:00) [1]

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

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

WithOut Any ... (2003-11-05 13:08:00) [2]

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

Е-Моё имя (2003-11-05 12:52:00) [3]

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

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

NikNet (2003-11-05 10:57:00) [4]

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

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

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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »