string ls_word_path
int li_return
li_return = RegistryGet("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\Winword.exe","Path", ls_word_path)
if li_return <> 1 then
MessageBox("失败!","与WORD连接失败,可能是未安装WORD!")
else
run(ls_word_path+"Winword.exe doc\name.doc")
end if