|
发表于 2010-8-24 18:07:20
|
显示全部楼层
贵州省遵义市
设置成默认浏览器。。。- .版本 2
- .参数 文件名绝对路径, 文本型, 可空, 可空:如果留空将设置本程序为默认浏览器;浏览器的可执行文件路径;
- .参数 类型, 整数型, 可空, 可空:默认为0,0=设置指定或本程序为默认浏览器,1=设置IE为默认浏览器;
- .如果 (类型 = 0)
- .如果 (是否为空 (文件名绝对路径) = 真)
- 写注册项 (1, “htmlfile\shell\”, “e”)
- 写注册项 (1, “htmlfile\shell\e\command\”, 取运行目录 () + “\” + 取执行文件名 () + “ ” + “%1”)
- 写注册项 (1, “HTTP\shell\”, “e”)
- 写注册项 (1, “HTTP\shell\e\command\”, 取运行目录 () + “\” + 取执行文件名 () + “ ” + “%1”)
- 写注册项 (1, “https\shell\”, “e”)
- 写注册项 (1, “https\shell\e\command\”, 取运行目录 () + “\” + 取执行文件名 () + “ ” + “%1”)
- 写注册项 (1, “InternetShortcut\shell\”, “e”)
- 写注册项 (1, “InternetShortcut\shell\e\command\”, 取运行目录 () + “\” + 取执行文件名 () + “ ” + “%1”)
- 写注册项 (1, “mhtmlfile\shell\”, “e”)
- 写注册项 (1, “mhtmlfile\shell\e\command\”, 取运行目录 () + “\” + 取执行文件名 () + “ ” + “%1”)
- .否则
- 写注册项 (1, “htmlfile\shell\”, “e”)
- 写注册项 (1, “htmlfile\shell\e\command\”, 文件名绝对路径 + “ ” + “%1”)
- 写注册项 (1, “HTTP\shell\”, “e”)
- 写注册项 (1, “HTTP\shell\e\command\”, 文件名绝对路径 + “ ” + “%1”)
- 写注册项 (1, “https\shell\”, “e”)
- 写注册项 (1, “https\shell\e\command\”, 文件名绝对路径 + “ ” + “%1”)
- 写注册项 (1, “InternetShortcut\shell\”, “e”)
- 写注册项 (1, “InternetShortcut\shell\e\command\”, 文件名绝对路径 + “ ” + “%1”)
- 写注册项 (1, “mhtmlfile\shell\”, “e”)
- 写注册项 (1, “mhtmlfile\shell\e\command\”, 文件名绝对路径 + “ ” + “%1”)
- .如果结束
- .否则
- 写注册项 (1, “htmlfile\shell\”, “open”)
- 写注册项 (1, “HTTP\shell\”, “open”)
- 写注册项 (1, “https\shell\”, “open”)
- 写注册项 (1, “InternetShortcut\shell\”, “open”)
- 写注册项 (1, “mhtmlfile\shell\”, “open”)
复制代码 |
|