2014年2月25日

delphi 去掉文件只读属性

摘要: Delphi 设置文件属性uses FileCtrl;procedure TForm1.BitBtn1Click(Sender: TObject);begin with OpenDialog1 do if Execute then if FileSetAttr(filename, faArchive)=0 then Caption:='attribute was changed' else Caption:='attribute was not changed';end;请在interface下的uses中引用... 阅读全文

posted @ 2014-02-25 11:01 酷瑞 阅读(1325) 评论(0) 推荐(0) 编辑

导航