InstallShield Professional 6.22中如何将安装目录设置为只读属性,谢谢!(50分)

  • 主题发起人 holly888
  • 开始时间
H

holly888

Unregistered / Unconfirmed
GUEST, unregistred user!
InstallShield Professional 6.22中如何将安装目录设置为只读属性,谢谢!
 
用函数SetFileInfo即可实现该功能:
// 更改安装目录 svPath 系统属性
nType = FILE_ATTRIBUTE;
nResult = FILE_ATTR_READONLY;
szResult = "";
if (SetFileInfo(svPath, nType, nResult, szResult) < 0) then
szMsg = "设置目录只读属性错误!!!";
nType = SEVERE;
MessageBox(szMsg, nType );
else
szMsg = "设置目录只读属性成功!!!";
nType = INFORMATION;
MessageBox(szMsg, nType );
endif;
 

Similar threads

D
回复
0
查看
709
DelphiTeacher的专栏
D
D
回复
0
查看
732
DelphiTeacher的专栏
D
顶部