label1.Caption:= intToStr(FileGetAttr('d:txt.txt') );// 取得文件属性，35:隐藏、只读，存档，32:存档，33:只读 ,34: 隐藏
edit1.Text:=intToStr( fileSetAttr('d:txt.txt',32)) ; //设置文件属性，设置成功则返回‘0’
[@more@]来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/729024/viewspace-1021642/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
DELPHI 删除数据例子
下一篇：
三层开发基本概念介绍
请登录后发表评论
登录
全部评论
