如何时时监控一个目录的大小？？
如何时时监控一个目录的大小？？ 问题点数：30、回复次数：3Top
1 楼liangqingzhi（老之）回复于 2006-06-03 21:53:59 得分 0
要用到
FindFirstChangeNotification
FindNextChangeNotification
FindCloseChangeNotificationTop
2 楼SmallMaker（小人物）回复于 2006-08-11 17:43:48 得分 0
http://www.xren.net/program/5459.htmlTop
3 楼SmallMaker（小人物）回复于 2006-08-11 17:44:22 得分 0
得到目录大小
function TFileBrowser.DirSize(Dir:string):integer;
var
SearchRec : TSearchRec;
Separator : string;
begin
if Copy(Dir,Length(Dir),1)='\' then
Separator := ''
else
Separator := '\';
if FindFirst(Dir+Separator+'*.*',faAnyFile,SearchRec) = 0 then
begin
if FileExists(Dir+Separator+SearchRec.name) then
begin
DirBytes := DirBytes + SearchRec.Size;
{Memo1.Lines.Add(Dir+Separator+SearchRec.Name);}
end
else
if DirectoryExists(Dir+Separator+SearchRec.name) then
begin
if (SearchRec.name<>'.') and (SearchRec.name<>'..') then
DirSize(Dir+Separator+SearchRec.name);
end;
end;
while FindNext(SearchRec) = 0 do
begin
if FileExists(Dir+Separator+SearchRec.name) then
begin
DirBytes := DirBytes + SearchRec.Size;
{Memo1.Lines.Add(Dir+Separator+SearchRec.Name);}
end
else
if DirectoryExists(Dir+Separator+SearchRec.name) then
begin
if (SearchRec.name<>'.') and (SearchRec.name<>'..') then
DirSize(Dir+Separator+SearchRec.name);
end;
end;
end;
end;
FindClose(SearchRec);
end;Top
