Pytanie : Błąd w findfirst rozmiar pliku

Cześć, I mieć problem z the poprawny suma kartoteka w folder.

I mieć used

for niektóre powód gdy I używać the kod niektóre na falcówka ono przynosić z powrotem negatyw, nawet jeśli the lista że swój dostawianie być wszystkie positive.

I am kłopot z oba sposób the size.

is tam  sposób ono więc wszystkie kartoteka przynosić z powrotem the prawdziwy rozmiar? 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

function Rewizja (ścieżka: sznurek; o: integer): sznurek;
var
  sr: tsearchrec;
  res: integer;
  i: integer;
  z: int64;
zaczynać
  ścieżka: = includetrailingpathdelimiter (ścieżka);
  res: = findfirst (path+'*.*', faAnyfile, sr);
  podczas gdy res = (0) zaczynać
    application.processmessages;
    jeżeli (sr.name <> ".") i (sr.name <> ". .") wtedy
      jeżeli DirectoryExists (ścieżka + sr.name) wtedy zaczynać


        Form32.Richedit1.lines.add ('Falcówka: '+path+sr.name);
        Rewizja (ścieżka + sr.name, o);
      końcówka inny zaczynać

    //z: =Int64 (sr.FindData.nFileSizeHigh) shl Int64 (32) + Int64 (sr.FindData.nFileSizeLow) +z;
      z: =Sr.Size;

        Filesizes: =Filesizes+z;

        Form32.Richedit1.lines.add ('Kartoteka: '+path+sr.name);
      końcówka;

    res: = findnext (sr);
  końcówka;
  findclose (sr);

końcówka;

Odpowiedź : Błąd w findfirst rozmiar pliku

Ich być położenie ono w grupowy polisa w, ale tam  być archiwum klucz dla ono:
HKLM \ Oprogramowanie \ Microsoft \ Windows NT \ CurrentVersion \ Winlogon \ ScreenSaverGracePeriod: REG_SZ
Ty móc preferencja the archiwum klucz móc z Grupowy Polisa Preferencja grupowy.

Ty móc wokoło z ono ono w twój środowisko, bawić się mówić ono potrzebować DWORD bawić się mówić REG_SZ, bawić się mówić HKLM praca s bawić się mówić HKCU. I zawrzeć artykuł od Microsoft i niektóre discusssions połączenie na ono niektóre także.

http://support.microsoft.com/kb/221784

http://social.technet.microsoft.com/Forums/en-US/w7itproui/thread/37ee5887-8b18-4514-b0f5-e81e60b6ccf4
Inne rozwiązania  
 
programming4us programming4us