NTFS-Komprimierung einer einzelnen Datei?

[PeterPanino]

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?