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 对汉字字符串的截取问题

idtcpclient和idtcpclient 主要属性和方法

Delphi 阿里云发送短信的Delphi单元

Delphi研究之驱动开发篇(六)--利用section与用户模式程序通讯(上)

Delphi 返回整数的四种情况

Delphi 清除windows 图标缓存源代码

Delphi获取星期函数

Delphi access数据库密码的mdb的访问报错“无法启动应用程序,或是已被其他用户已独占方式打开”

Delphi中用ado连接加密access数据库

Delphi char数组、string和pchar的相互转换

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



打赏

取消

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

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

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

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

评论

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