一个问题:如何将程序所在的文件夹设定为 操作系统文件,隐藏起来。
如题。
[解决办法]
- Delphi(Pascal) code
const FFolder: PChar = 'E:\Test';var FAttr: Cardinal;begin FAttr := GetFileAttributes(FFolder); SetFileAttributes(FFolder, FAttr or faSysFile or faHidden);end;
发布时间: 2012-03-16 16:34:56 作者: rapoo
一个问题:如何将程序所在的文件夹设定为 操作系统文件,隐藏起来。
如题。
[解决办法]
const FFolder: PChar = 'E:\Test';var FAttr: Cardinal;begin FAttr := GetFileAttributes(FFolder); SetFileAttributes(FFolder, FAttr or faSysFile or faHidden);end;