急!如何让文件变成隐藏文件啊。。。

Question

如何让指定文件变成隐藏文件 
求高手指导。。 最好代码加注释。

Answer 1

FileSetAttr(filename, faHidden)文件属性常量
   Constant Value Description
    faReadOnly $00000001 Read-only files 只读文件
    faHidden $00000002 Hidden files 隐藏文件
    faSysFile $00000004 System files 系统文件
    faVolumeID $00000008 Volume ID files 卷标文件
    faDirectory $00000010 Directory files 目录
    faArchive $00000020 Archive files 归档文件
    faAnyFile $0000003F Any file 任意文件

Answer 2

var
  FileName: string;
  Attr: Integer;  //属性值是一个整数
begin
  FileName := 'c:\test';
  Attr := FileGetAttr(FileName);
  ShowMessage(IntToStr(Attr));  //32, 存档文件  //设置为隐藏和只读文件:
  Attr := FILE_ATTRIBUTE_READONLY or FILE_ATTRIBUTE_HIDDEN;
  if FileSetAttr(FileName,Attr)=0 then  //返回0表示成功
    ShowMessage('设置成功!');
end;

Answer 3

//TempStr 为文件路径
if FileExists(TempStr) then
   SetFileAttributes(PChar(TempStr),FILE_ATTRIBUTE_NORMAL);//正常
SetFileAttributes(PChar(TempStr),FILE_ATTRIBUTE_READONLY);//只读
//FILE_ATTRIBUTE_HIDDEN 隐藏
// D7下运行通过

Answer 4

FileSetAttr(filename, faHidden)文件属性常量
  Constant Value Description
  faReadOnly $00000001 Read-only files 只读文件
  faHidden $00000002 Hidden files 隐藏文件
  faSysFile $00000004 System files 系统文件
  faVolumeID $00000008 Volume ID files 卷标文件
  faDirectory $00000010 Directory files 目录
  faArchive $00000020 Archive files 归档文件
  faAnyFile $0000003F Any file 任意文件
var
  FileName: string;
  Attr: Integer;  //属性值是一个整数
begin
  FileName := 'c:\test';
  Attr := FileGetAttr(FileName);
  ShowMessage(IntToStr(Attr));  //32, 存档文件  //设置为隐藏和只读文件:
  Attr := FILE_ATTRIBUTE_READONLY or FILE_ATTRIBUTE_HIDDEN;
  if FileSetAttr(FileName,Attr)=0 then  //返回0表示成功
    ShowMessage('设置成功!');
end;
//TempStr 为文件路径
if FileExists(TempStr) then
   SetFileAttributes(PChar(TempStr),FILE_ATTRIBUTE_NORMAL);//正常
SetFileAttributes(PChar(TempStr),FILE_ATTRIBUTE_READONLY);//只读
//FILE_ATTRIBUTE_HIDDEN 隐藏
// D7下运行通过