Delphi SetFileAttributes 功能:修改文件属性


本文整理自网络,侵删。

 
SetFileAttributes 功能:修改文件属性

这是一个修改文件属性的API

使用下面WINDOWS API函数


function SetFileAttributes(lpFileName: PChar; dwFileAttributes: DWORD): BOOL; stdcall;   
{$EXTERNALSYM SetFileAttributes}   
function SetFileAttributesA(lpFileName: PAnsiChar; dwFileAttributes: DWORD): BOOL; stdcall;   
{$EXTERNALSYM SetFileAttributesA}   
function SetFileAttributesW(lpFileName: PWideChar; dwFileAttributes: DWORD): BOOL; stdcall;   
{$EXTERNALSYM SetFileAttributesW}   
function SetFileAttributes(lpFileName: PChar; dwFileAttributes: DWORD): BOOL; stdcall; {$EXTERNALSYM SetFileAttributes} function SetFileAttributesA(lpFileName: PAnsiChar; dwFileAttributes: DWORD): BOOL; stdcall; {$EXTERNALSYM SetFileAttributesA} function SetFileAttributesW(lpFileName: PWideChar; dwFileAttributes: DWORD): BOOL; stdcall; {$EXTERNALSYM SetFileAttributesW}

实例:

 


SetFileAttributes('C:/test.exe',FILE_ATTRIBUTE_HIDDEN+FILE_ATTRIBUTE_SYSTEM);

下面是文件属性,对应dwFileAttributes




   FILE_ATTRIBUTE_READONLY              = $00000001;   
  {$EXTERNALSYM FILE_ATTRIBUTE_READONLY}   
   FILE_ATTRIBUTE_HIDDEN                = $00000002;   
  {$EXTERNALSYM FILE_ATTRIBUTE_HIDDEN}   
   FILE_ATTRIBUTE_SYSTEM                = $00000004;   
  {$EXTERNALSYM FILE_ATTRIBUTE_SYSTEM}   
   FILE_ATTRIBUTE_DIRECTORY             = $00000010;   
  {$EXTERNALSYM FILE_ATTRIBUTE_DIRECTORY}   
   FILE_ATTRIBUTE_ARCHIVE               = $00000020;   
  {$EXTERNALSYM FILE_ATTRIBUTE_ARCHIVE}   
   FILE_ATTRIBUTE_NORMAL                = $00000080;   
  {$EXTERNALSYM FILE_ATTRIBUTE_NORMAL}   
   FILE_ATTRIBUTE_TEMPORARY             = $00000100;   
  {$EXTERNALSYM FILE_ATTRIBUTE_TEMPORARY}   
   FILE_ATTRIBUTE_COMPRESSED            = $00000800;   
  {$EXTERNALSYM FILE_ATTRIBUTE_COMPRESSED}   
   FILE_ATTRIBUTE_OFFLINE               = $00001000;

相关阅读 >>

Delphi给access创建数据表

Delphi 请求时间,为当前时间,数值为1970-01-01以来的毫秒数

Delphi 判断端口是否被使用

Delphi real控件 rm格式的播放器

Delphi 得到ip地址最后一个点后面的值

Delphi 用tidsmip和tidmessage发送邮件

Delphi中使用activex的一些心得

Delphi时间格式错误

Delphi tadoquery的用法

Delphi listview中加载图片

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...