Authorware开发实例:Authorware与注册表编制程序实际示例

(一) 计算图标,目的:显示当前所有ie右键扩展菜单项y

document.body.clientwidth-333)this.width=document.body.clientwidth-333" border=1>x8>o1uu
ie_rightkey:=baregkeylist("software//microsoft//internet explorer//menuext", "hkey_current_user")
(二) 显示图标
变量{ie_rightkey}(显示全部ie右键扩展菜单项,滚动文本设置) 和{select_word}(显示选中的ie右键扩展菜单项)
(三) 交互图标
交互图标右侧有下面的热区交互和按钮交互s-j &k
(四) 热区设置:限制lastlineclicked范围(设永久交互,热区范围是{ie_rightkey}显示区)

document.body.clientwidth-333)this.width=document.body.clientwidth-333" border=1>^
select_id:=lastlineclicked---选中的行.
select_word:=getline(ie_rightkey,select_id)--显示选中的行
(五) 删除选中项按钮

document.body.clientwidth-333)this.width=document.body.clientwidth-333" border=1>c@u.in-6/'/b
计算图标内容/
if select_word="" thenp
almsgbox(windowhandle,"请选择相应的内容!","虹软工作室提醒",0,"error")@
else
badeletereg( "software//microsoft//internet explorer//menuext//"^select_word, "contexts","hkey_current_user")
badeletereg( "software//microsoft//internet explorer//menuext//"^select_word, "","hkey_current_user")
-------刷新显示
ie_rightkey:=baregkeylist("software//microsoft//internet explorer//menuext", "hkey_current_user")
select_word:=""---选中显示置空
end if
---------"

二 、如何清理ie工具栏的所有扩展项？

------------win2000调试环境-------------
------获取所有项
ie_toolkey_dd:=baregkeylist("software//microsoft//internet explorer//extensions", "hkey_local_machine")
------某一项
repeat with toolkey:=1 to linecount(ie_toolkey_dd)
------某一项的所有值列表
regvl_count:=baregvaluelist( "software//microsoft//internet explorer//extensions//"^getline(ie_toolkey_dd,toolkey), "hkey_local_machine")
------某一项的值
repeat with vl:=1 to linecount(regvl_count)bvfk+l
badeletereg( "software//microsoft//internet explorer//extensions//"^getline(ie_toolkey_dd,toolkey),getline(regvl_count,vl),"hkey_local_machine")
end repeat
end repeat

-------------用到的函数budapi.u32和almessagebox.u32------------------