一个有关问题：怎么将程序所在的文件夹设定为 操作系统文件，隐藏起来

一个问题：如何将程序所在的文件夹设定为 操作系统文件，隐藏起来。
如题。

[解决办法]

Delphi(Pascal) code

const  FFolder: PChar = 'E:\Test';var  FAttr: Cardinal;begin  FAttr := GetFileAttributes(FFolder);  SetFileAttributes(FFolder, FAttr or faSysFile or faHidden);end;