{"id":763,"date":"2008-05-26T06:06:12","date_gmt":"2008-05-26T06:06:12","guid":{"rendered":"http:\/\/6teen.ru\/?p=345"},"modified":"2008-05-26T06:06:12","modified_gmt":"2008-05-26T06:06:12","slug":"8455","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=763","title":{"rendered":"\u041a\u0430\u043a \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0440\u0430\u0437\u043c\u0435\u0440 \u043a\u0430\u0442\u0430\u043b\u043e\u0433\u0430?"},"content":{"rendered":"<p>\u041a\u0430\u043a \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0440\u0430\u0437\u043c\u0435\u0440 \u043a\u0430\u0442\u0430\u043b\u043e\u0433\u0430?<br \/>\n<!--more--><\/p>\n<pre class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset; width:580px; height:320px; overflow:auto\"><div>\u041a\u0430\u043a \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0440\u0430\u0437\u043c\u0435\u0440 \u043a\u0430\u0442\u0430\u043b\u043e\u0433\u0430?\n\nvar\n  Form1: TForm1;\n  DirBytes: integer;\n\nimplementation\n\n{$R *.dfm}\n\nfunction DirSize(Dir: string): integer;\nvar\n  SearchRec: TSearchRec;\n  Separator: string;\nbegin\n  if Copy(Dir,Length(Dir),1)='\\' then\n    Separator := ''\n  else\n    Separator := '\\';\n  if FindFirst(Dir+Separator+'*.*',faAnyFile,SearchRec) = 0 then\n  begin\n    if FileExists(Dir+Separator+SearchRec.name) then\n      DirBytes := DirBytes + SearchRec.Size\n    else\n    if DirectoryExists(Dir+Separator+SearchRec.name) then\n    begin\n      if (SearchRec.name<>'.') and (SearchRec.name<>'..') then\n        DirSize(Dir+Separator+SearchRec.name);\n    end;\n    while FindNext(SearchRec) = 0 do\n    begin\n      if FileExists(Dir+Separator+SearchRec.name) then\n        DirBytes := DirBytes + SearchRec.Size\n      else\n      if DirectoryExists(Dir+Separator+SearchRec.name) then\n      begin\n        if (SearchRec.name<>'.') and (SearchRec.name<>'..') then\n          DirSize(Dir+Separator+SearchRec.name);\n      end;\n    end;\n  end;\n  FindClose(SearchRec);\n  Result:=Result+DirBytes;\nend;\n\n\u0432\u044b\u0437\u043e\u0432:\n\nprocedure TForm1.BitBtn1Click(Sender: TObject);\nbegin\nDirBytes:=0;\nDirBytes := DirSize('c:\\windows');\nLabel1.Caption := IntToStr(DirBytes);\nend;\n\n********************************************************\n\n\u0412\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c\u0430\u044f \u0440\u0430\u0437\u043c\u0435\u0440\u043d\u043e\u0441\u0442\u044c - \u0431\u0430\u0439\u0442\u044b.):\nvar\ndirbytes : integer;\n\nfunction tfilebrowser.dirsize(dir:string):integer;\nvar\nsearchrec : tsearchrec;\nseparator : string;\nbegin\nif copy(dir,length(dir),1)='\\' then\nseparator := ''\nelse\nseparator := '\\';\nif findfirst(dir+separator+'*.*',faanyfile,searchrec) = 0 then begin\nif fileexists(dir+separator+searchrec.name) then begin\ndirbytes := dirbytes + searchrec.size;\n{memo1.lines.add(dir+separator+searchrec.name);}\nend else if directoryexists(dir+separator+searchrec.name) then begin\nif (searchrec.name<>'.') and (searchrec.name<>'..') then begin\ndirsize(dir+separator+searchrec.name);\nend;\nend;\nwhile findnext(searchrec) = 0 do begin\nif fileexists(dir+separator+searchrec.name) then begin\ndirbytes := dirbytes + searchrec.size;\n{memo1.lines.add(dir+separator+searchrec.name);}\nend else if directoryexists(dir+separator+searchrec.name) then\nbegin\nif (searchrec.name<>'.') and (searchrec.name<>'..') then begin\ndirsize(dir+separator+searchrec.name);\nend;\nend;\nend;\nend;\nfindclose(searchrec);\nend;\n<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u041a\u0430\u043a \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0440\u0430\u0437\u043c\u0435\u0440 \u043a\u0430\u0442\u0430\u043b\u043e\u0433\u0430?<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[448,459],"tags":[788,1509,1664],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/763"}],"collection":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=763"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/763\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=763"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=763"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=763"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}