Frage : Störung in der findfirst Dateigröße

Hallo, habe ich Probleme mit dem Anzeigen der korrekten Summe der Akten in einem folder.

I habe used

aus irgendeinem Grund, wenn ich den Code unten auf einem Faltblatt, das er zurück Negativ holt, obwohl die Liste verwende, dass sein Hinzufügen alles positive.

I morgens Mühe mit beiden Weisen von dem size.

is eine Weise des Handelns sie dorthin kommen habend ist, also alle Akten zurück die zutreffende Größe holen?
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 Suche (Weg: Schnur; O: ganze Zahl): Schnur;
var
  Sr: tsearchrec;
  Res: ganze Zahl;
  I: ganze Zahl;
  z: int64;
anfangen
  Weg: = includetrailingpathdelimiter (Weg);
  Res: = findfirst (path+'*.*', faAnyfile, Sr);
  während Res = 0 anfangen
    application.processmessages;
    wenn (sr.name <> „.") und (sr.name <> „. .") dann
      wenn DirectoryExists (Weg + sr.name) dann anfangen


        Form32.Richedit1.lines.add ('Faltblätter: '+path+sr.name);
        Suche (Weg + sr.name, O);
      Ende fangen sonst an

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

        Filesizes: =Filesizes+z;

        Form32.Richedit1.lines.add ('Akten: '+path+sr.name);
      Ende;

    Res: = findnext (Sr);
  Ende;
  findclose (Sr);

Ende;

Antwort : Störung in der findfirst Dateigröße

Ihre nicht ist eine Einstellung in der Gruppenpolitik, selbst, zum dies zu tun, aber es gibt einen Registerschlüssel für ihn:
HKLM \ Software \ Microsoft \ Windows NT \ CurrentVersion \ Winlogon \ ScreenSaverGracePeriod: REG_SZ
Sie konnten den Registerschlüssel selbst mit Gruppen-Politik-Präferenzen zwar hinausschieben.

Sie können mit ihr herum spielen müssen, um sie zu erhalten arbeitend in Ihrer Umwelt, sagen einige, sie ein DWORD sein muss, das andere REG_SZ sagen, einige sagen, dass HKLM Arbeit s andere HKCU sagen. Ich schloß Artikel von Microsoft und einige discusssions Verbindungen auf ihm unten außerdem ein.

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

http://social.technet.microsoft.com/Forums/en-US/w7itproui/thread/37ee5887-8b18-4514-b0f5-e81e60b6ccf4
Weitere Lösungen  
 
programming4us programming4us