X xhj12077021 Unregistered / Unconfirmed GUEST, unregistred user! 2007-03-20 #1 请问怎么在程序中隐藏文件夹， 我想把一个文件夹备份到另一个地方，备份的文件的属性是隐藏的。请问在程序中怎么样实现？
X xhj12077021 Unregistered / Unconfirmed GUEST, unregistred user! 2007-03-20 #4 需要啊 兄弟 我不需要加密 只要能隐藏就可以
H happycyp Unregistered / Unconfirmed GUEST, unregistred user! 2007-03-20 #6 procedure TForm1.btn1Click(Sender: TObject); var strDir: string; begin strDir := Edt1.text; SetFileAttributes(PChar(strDir),GetFileAttributes(PChar(strDir)) or FILE_ATTRIBUTE_HIDDEN); end; 上面的代码即可隐藏文件夹。刚测试了没有问题。 如果Edt1.text是文件，则隐藏文件；是文件夹，则隐藏文件夹。
procedure TForm1.btn1Click(Sender: TObject); var strDir: string; begin strDir := Edt1.text; SetFileAttributes(PChar(strDir),GetFileAttributes(PChar(strDir)) or FILE_ATTRIBUTE_HIDDEN); end; 上面的代码即可隐藏文件夹。刚测试了没有问题。 如果Edt1.text是文件，则隐藏文件；是文件夹，则隐藏文件夹。
