delphi 如何设置文件属性

本文整理自网络，侵删。

 delphi 如何设置文件属性

procedure TForm1.Button1Click(Sender: TObject); 
begin 
with OpenDialog1 do 
if Execute then 
if SetFileAttributes(PChar(Filename), FILE_ATTRIBUTE_HIDDEN) then 
Caption:='attribute was changed' 
else 
Caption:='attribute was not changed'; 
end;
 

相关阅读 >>

Delphi 字符串转换ascii码10进制

Delphi中获取当前用户sid

Delphi程序禁止结束进程

Delphi读取文本文件的最后一行

Delphi 打开win8及以上操作系统的系统已安装程序目录

Delphi #9、 #10、 #13 表示的意思

Delphi tgauge类的定义在哪个单元中定义的？

Delphi 获取毫秒级时间戳

Delphi 判断按键状态

Delphi 进程通讯之wm_copydata 发送程序（senddata.exe）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 如何设置文件属性