文件名称：Delphi浏览并修改文件属性.rar
文件大小：7KB
文件格式：RAR
更新时间：2022-07-30 11:48:19
Delphi源码-文件操作
Delphi浏览并修改文件属性，可浏览到需要修改属性的文件夹，选中文件，可修改文件的只读、隐藏、存档、系统等属性，和Windows系统中修改文件属性的功能是一样的。一些具体的属性修改代码： procedure TForm1.FileListBox1Change(Sender: TObject); var attr:integer; begin attr:=0; if FileListBox1.FileName = '' then begin cbxReadOnly.Checked:=False; cbxSysFile.Checked:=False; cbxHidden.Checked:=False; cbxArchive.Checked:=False; exit; end; attr:=FileGetAttr(FileListBox1.FileName); if attr and faReadOnly = faReadOnly then //只读 CBXReadOnly.Checked:=true else cbxReadOnly.Checked:=False; if attr and faSysFile = faSysFile then //系统 CBXSysFile.Checked:=true else cbxSysFile.Checked:=False; if attr and faHidden = faHidden then //隐藏 CBXHidden.Checked:=true else cbxHidden.Checked:=False; if attr and faArchive = faArchive then //存档 CBXArchive.Checked:=true else cbxArchive.Checked:=False; end; 完整源代码请下载。
【文件预览】：
srcfans.com
----文件属性()
--------Project1.dof(2KB)
--------Unit1.dcu(6KB)
--------Unit1.dfm(3KB)
--------Project1.cfg(461B)
--------Project1.dpr(188B)
--------Unit1.pas(2KB)
--------Project1.res(876B)
--------Unit1.ddp(51B)