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;

相关阅读 >>

webbrowser部分用法

Delphi listview1 中添加check选中事件

Delphi fdlocalsql使用方法

Delphi设置屏幕分辨率的函数

Delphi shellexecute 打开文件夹

Delphi scrollbox1滚动框鼠标滚轮

Delphi 禁止关机的代码

Delphi 取得 ios 辅助使用里的字型大小

Delphi 把窗体上的所有edit清空怎么做

Delphi webbrowser通过遍历id查找元素是否存在

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



打赏

取消

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

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

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

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

评论

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