Hallo und schönes Wochenende!
Ich wollte mit
TFile.SetAttributes
das Dateiattribut
faCompressed
einer einzelnen Datei setzen, aber es funktionierte nicht.
Dann las ich:
Zitat:
It is not possible to change the compression status of a File object using the SetAttributes method.
So versuchte ich in der cmd-Konsole:
Code:
compact "C:\meintest\meineapp.exe"
Aber es funktionierte nicht. Die Konsole meldete zurück:
Code:
1603048 : 1603048 = 1,0 zu 1 meineapp.exe
Von 1 Dateien in 1 Verzeichnissen sind
0 komprimiert und 1 nicht komprimiert.
1.603.048 Datenbytes insgesamt werden in 1.603.048 Bytes gespeichert.
Das Komprimierungsverhältnis ist 1,0 zu 1.
Was könnte die Ursache dafür sein? Wie kann man die NTFS-Komprimierung dieser Datei mit Delphi bzw. programmatisch durchführen?