【文件属性】:
文件名称: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)