发信人: sunbing()
整理人: hunter__fox(2002-03-16 23:08:06), 站内信件
|
可 以 调 用 Win32 API的 SetFileAttributes函 数 。 下 面 这 段 代 码 演 示 的 是 如 何 设 置 文 件 为 只 读 属 性 。
DECLARE LONG GetFileAttributes IN win32api ;
STRING lpFileName
DECLARE LONG SetFileAttributes IN win32api ;
STRING lpFileName, LONG dwFileAttributes
=SetFileAttributes("D:\test1.txt", BitOr(GetFileAttributes("D:\tes t1.txt"), 1))
-- 太阳冰,真诚面对一切!
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.102.146.70]
|
|