/*
功能:
查找IE的执行程序路径
参数:
None
返回值:
成功:IE Path
失败:""
创建人:
创建时间:
*/
string ls_key,ls_AppParth,ls_buff[]
long ll_pos
int i
environment le_environment
GetEnvironment(le_environment)
choose case le_environment.OSType
case Windows!
ls_key = "HKEY_CLASSES_ROOT\https\shell\open\command"
case WindowsNT!
ls_key = "HKEY_CLASSES_ROOT\Applications\iexplore.exe\shell\open\command"
case else
return ""
end choose
if RegistryValues(ls_key,ls_buff) = -1 then return ""
//获得键的Title(Name)
for i = 1 to upperbound(ls_buff)
if RegistryGet(ls_key,ls_buff[i],RegString!, ls_AppParth) = 1 then
ll_pos = pos(ls_AppParth,"iexplore.exe")
if ll_pos > 0 then
return Left(ls_AppParth,ll_pos + 12)
end if
end if
next
return ""