如何编程调用系统的NTFS文件压缩功能 ( 积分: 200 )

XP，2003系统的NTFS文件、文件夹的压缩功能，即在文件-右键-高级-压缩文件以便节省磁盘空间。
这个功能，如何实现编程调用。
分数还会增加，直到你满意为止。

看来不好解决， 能够使用windows的cmd实现也行。
高手们帮忙了啊
在线等的了

转一个

...set a file's compression state ?
Author: Primoz Gabrijelcic
[ Print tip ]

Tip Rating (8):




{
To set a file's compression state, use the DeviceIoControl function with the
FSCTL_SET_COMPRESSION operation.

Call the following function with the name of the file to compress and
boolean parameter 'forceCompress'. If that one is true, file will be compressed.
If it is false, the file will be compressed only if its parent folder is
compressed (reason for that parameter: if you MoveFile uncompressed file from
uncompressed folder to compressed folder, file will not become automatically
compressed - at least under some NT 4 service packs).

Ein "compressed" Attribut kann man nicht mit der FileSetAttr Funktion setzen
sondern muss DeviceIoControl Funktion mit dem flag FSCTL_SET_COMPRESSION verwenden:
}


const
COMPRESSION_FORMAT_NONE = 0
COMPRESSION_FORMAT_LZNT1 = 2
COMPRESSION_FORMAT_DEFAULT = 1;
FILE_DEVICE_FILE_SYSTEM = 9;
METHOD_BUFFERED = 0;
FILE_READ_DATA = 1;
FILE_WRITE_DATA = 2;
FSCTL_SET_COMPRESSION = (FILE_DEVICE_FILE_SYSTEM shl 16) or
((FILE_READ_DATA or FILE_WRITE_DATA) shl 14) or (16 shl 2) or METHOD_BUFFERED;

function SetCompressedAttribut(FileName: PChar; forceCompress: Boolean): Boolean;
var
hnd: Integer;
Comp: SHORT;
res: DWORD;
begin
if forceCompress or ((GetFileAttributes(PChar(ExtractFilePath(FileName))) and
FILE_ATTRIBUTE_COMPRESSED) <> 0) then
begin
Result := False;
if (GetFileAttributes(FileName) and FILE_ATTRIBUTE_COMPRESSED) = 0 then
begin
hnd := CreateFile(FileName, GENERIC_READ + GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);
try
Comp := COMPRESSION_FORMAT_DEFAULT;
if not DeviceIoControl(hnd, FSCTL_SET_COMPRESSION, @Comp,
SizeOf(SHORT), nil, 0, res, nil) then Exit;
finally
CloseHandle(hnd);
end;
end;
Result := True;
end
else
Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
SetCompressedAttribut(PChar(OpenDialog1.FileName), True);
end;
end;