Vraag : Fout in de grootte van het findfirstdossier

Heb hallo, ik problemen met het tonen van de correcte som dossiers in een folder.

I hebben used

met een bepaalde bedoeling wanneer ik de code hieronder inzake een omslag gebruik het terug negatief brengt, alhoewel de lijst dat zijn het toevoegen al positive.

I am hebbend probleem met beide manieren om size.

is een manier om het zodat alle dossiers is te doen terug de ware grootte brengt?
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:
van 
function Onderzoek (weg: koord; o: geheel): koord;
var
  SR: tsearchrec;
  onderzoek: geheel;
  i: geheel;
  z: int64;
begin
  weg: = includetrailingpathdelimiter (weg);
  onderzoek: = findfirst (faAnyfile path+'*.*', SR);
  terwijl onderzoek = 0 beginnen
    application.processmessages;
    als (sr.name <> „. “) en (sr.name <> „. “) toen
      als DirectoryExists (weg + sr.name) dan begint


        Form32.Richedit1.lines.add ('Omslagen: '+path+sr.name);
        Zoek (weg + sr.name, o);
      het eind begint anders

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

        Filesizes: =Filesizes+z;

        Form32.Richedit1.lines.add ('Dossiers: '+path+sr.name);
      eind;

    onderzoek: = findnext (SR);
  eind;
  findclose (SR);

eind;

Antwoord : Fout in de grootte van het findfirstdossier

Hun is niet het plaatsen in groepsbeleid zelf om dit te doen, maar er is een registratiesleutel voor het:
HKLM \ de Vensters NT \ CurrentVersion \ Winlogon \ ScreenSaverGracePeriod van de Software \ Microsoft \: REG_SZ
U kon de registratiesleutel zelf met de Voorkeur van het Beleid van de Groep niettemin ontslaan.

U kunt met het moeten rond spelen om het werkend in uw milieu te krijgen, zeggen sommigen het een DWORD moet zijn anderen REG_SZ zeggen, zeggen sommigen HKLM het werk s anderen HKCU zeggen. Ik omvatte artikelen van Microsoft en sommige discusssionsverbindingen hieronder op het eveneens.

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

http://social.technet.microsoft.com/Forums/en-US/w7itproui/thread/37ee5887-8b18-4514-b0f5-e81e60b6ccf4
Andere oplossingen  
 
programming4us programming4us