如何在Delphi中控制Excel文档的属性 ( 积分: 30 )

如提所述
即，如何控制Excel文档为只读文档，或者为存档文档
是在Delphi中控制哦！

这应该和是不是EXCEL无关吧。
以下是从网上找的方法：
1. 在interface下的uses中引用filectrl单元

2. 首先取文件属性

var
attr : integer;
filename : string;
begin
filename := 'myfile';
attr := FileGetAttr(filename);
end;



3. 设置文件属性(如设置归档属性 -> faArchive )

attr := attr or faArchive;
//如要去掉某一属性，则如下句
attr := attr and (not faArchive);
//保留其它属性
if FileSetAttr(filename, attr)=0 then
//成功代码
else
//失败代码

4. 附文件属性常量
Constant Value Description
faReadOnly $00000001 Read-only files 只读文件
faHidden $00000002 Hidden files 隐藏文件
faSysFile $00000004 System files 系统文件
faVolumeID $00000008 Volume ID files 卷标文件
faDirectory $00000010 Directory files 目录
faArchive $00000020 Archive files 归档文件
faAnyFile $0000003F Any file 任意文件

谢谢 jin_rose

还有一个问题：
在Delphi中如何控制Excel中的打印功能是否可用？（另外加50分)
请知道的帮帮忙！这个比较急