case '.DOC'
if RegistryGet ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\Winword.exe","Path", Regstring!,ls_path) = -1 then
messagebox(gs_tsxx,"请先安装Winword.exe程序!",Exclamation!)
return
end if
if run('"' + ls_path + 'WINWORD.EXE " ' + ls_realnewfile ) <> 1 then
messagebox(gs_tsxx,"打开文件失败,请检查其正确性!",Exclamation!)
return
END IF