呀米呀米 .....((((( O_O))))).....

API
SetFileAttributes(文件名,FILE_ATTRIBUTE_HIDDEN)，  
  或者SetFileAttributes(文件名,6)，

DELPHI函数：  
1. 在interface下的uses中引用filectrl单元。  
2.  filesetattr('filename',DELPHI常量）  
   
  例如：  
          filesetattr('my.doc',fareadonly)//改成只读    
          filesetattr('my.doc',fareadonly+faarchive)//成为只读和存档      

  文件属性                   DELPHI常量  
  只读                               FAREADONLY  
  隐藏                               FAHIDDEN  
  系统                               FASYSFILE  
  存档                               FAARCHIVE  
  卷标                               FAVOLUMEID  
  目录                               FADIRECTOYY  
  有8位代表其属性（后二位未用）  
  0   只读位  
  1   隐藏位  
  2   系统位  
  3   卷标位  
  4   目录位  
  5   存档位  
  6  
  7