说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

无关联程序时开启“打开方式”窗口 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
无关联程序时开启“打开方式”窗口 -VB资料

在使用资源管理器时,双击一个未建立关联的文件, 就会出现一个打开方式窗口。 而在程序中使用 ShellExecute 打开文件时, 如果没有关联程序,也可以打开该窗口。
声明:
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function ShellExecute Lib _
"shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Declare Function GetSystemDirectory Lib _
"kernel32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize _
As Long) As Long
Private Const SE_ERR_NOASSOC = 31
函数:
Public Sub ShellDoc(strFile As String)
Dim lngRet As Long
Dim strDir As String
lngRet = ShellExecute(GetDesktopWindow, _
"open", strFile, _
vbNullString, vbNullString, vbNormalFocus)
If lngRet = SE_ERR_NOASSOC Then
' 没有关联的程序
strDir = Space(260)
lngRet = GetSystemDirectory(strDir, _
Len(strDir))
strDir = Left(strDir, lngRet)
' 显示打开方式窗口
Call ShellExecute(GetDesktopWindow, _
vbNullString, "RUNDLL32.EXE", _
"shell32.dll,OpenAs_RunDLL " & _
strFile, strDir, vbNormalFocus)
End If
End Sub
使用:
OpenDoc "c:\aa.log"
小团队谈推广:豆果、金山、微博易、面包旅行 敏捷实战:如何让团队迭代交付周期缩短一半 移动设备管理初创公司AirWatch:首轮融资2亿美元 New Relic:不等应用崩溃,实时监控你的App! Zynga力挽狂澜三步棋:移动+授权+自有网络 巧用MapReduce+HDFS,海量数据去重的五大策略 革自己的命?为带来一致体验 IE11伪装FireFox 最古老的Linux发行版Slackware以及Arch Linux齐弃MySQL JEECG v2.3 发布,基于代码生成器的智能开发框架 Mozilla将设应用工场 Firefox OS瞄准欧洲南美 Summly创始人:12岁开始编程 17岁公司卖了3000万美元 因SaaS与NoSQL,Oracle雄风不在? 那些年云计算领域的大牛们 回顾:那些被平台方封杀的第三方应用 [热帖推荐] 中国的程序员,真的“短命”吗? 聚焦HTML5移动开发 第六届英特尔杯大学生软件开发大赛开幕 虚拟化技术新星Pluribus Networks获中国VC青睐 可穿戴开发!Pebble Watchface SDK 4月发布 我想做个程序员:一位编程小白的App开发故事 Go 1.1发布,支持向后兼容 Polycode:免费、开源的跨平台(游戏和APP)开发工具 为何大多数云计算公司注定要失败 究竟是什么让Redshift比Hive快10倍?! [评论]将Linux拒之门外 微软被开源社区指控垄断 精细化运营:友盟统计分析SDK 3.0版本发布 “锤子OS”功能猜测与罗式对比营销 神奇!1KB JavaScript代码编写的3D蜜蜂 顶尖技术人员“兜售”的顶尖编程语言、扩展工具等 移动阅读商业化:Flipboard支持用户DIY杂志 全球移动App:Top 52发行商排行榜 知新网CTO:从程序员的视角,实践精益创业 关于red hat9的小问题 不知是程序写多了还是失恋的缘故!我头上有一块地方不长头发了,医生说是斑秃!不知程序员里有斑秃的吗? 一IT美女的悲惨遭遇◎! .net2003的编译器如何为类添加消息映射啊???? JAVA的文本编辑,实现修改和排版 Jmai发送邮件问题? 高分求c++ test 我成功配置了一备用数据库,与主库连上了,可是主库坏了,我怎么打不开备用库啊? (SDK)怎样用SendMessage函数反选一个checkButton control(checked->unchecked)呢? 求救,为什么关于VB的帮助的事例看不到? 有拒绝爱情的吗?我还在念大学 做一个不是很大的网站,是用类好,还是用模块的好? 如何对本地机的共享文件夹设置密码 一个讨厌的QQ木马网站如何防治,最好有人能黑了它! 谁写得有能随机生成数字和字母的函数,借来用用? 快速排序的问题。求救 使用 CDatabase 读写 excel 文件的问题。 水园的朋友们,你们好!!!学校的网页!!! how can I show the correct word? 我的机出现了网络重名~~改IP也没用 庐山印象(ZT)----让我想起我小学写的作文哦!看了会起鸡皮疙瘩的! 请问谁有avphone控件3。0的破解版 学校的网页!!!! 500分! 求win2k下探测和阻塞ping的源码. 有关CASL的一个菜问题,请各位帮忙看一下 关于window.confirm的问题,简单问题解决后既散分 请问doc,pdf等文件在iframe中的显示 怎样给datagird的列定义标题? 怎样判断一个文件是否存在呀? 超市系統的報價?? 如何取得类名为#32770的窗口句柄? 我在web.xml里这样设置首业为什么不可以? 请问AMD的CPU对现在市面上的各种软件都能兼容吗? 电脑操作过程中,有时会弹出一些非法操作的窗口,如何把它保存下来? asp中调用javascript的小问题, 今天终于有时间,想看《黑客帝国2》,哪位提供一点信息? 显卡和声卡的作用不太清楚? 请提供结构化布线的下载地址,谢谢! DataList的绑定内容怎么出不来? VB、ASP或相做软件销售的有志创业者,请与我联系 想做一个分页的程序。如何让jdbc 每次只返回20条数据? 小弟想考MCAD,高分寻求指点。 求jbuilder 4.0 序列号 XP上没有待机的选项怎么设置 如何将weblogic7的jdk换成1.4.2? 请问C#怎样实现可拖动的工具条 VB、ASP或相做软件销售的有志创业者,请看 朋友想开一家软件公司,您能为它取一个好听的名字吗? 小弟想考MCAD,高分寻求指点。 TDC数据岛中有个SORTCOLUMN属性设置排序,XML数据岛中不能用该属性? 福建的it业朋友进来报一下money状况啊 49的平方是多少 英语翻译I always think that i am a fucking qualified boyfriend 若a的二次方=49 则a=? 英语翻译收到你的来信,我很高兴,你现在可好,一路是否平安?回到家肯定很开心对吧?你走之后我更无聊了,找工作又总是碰壁,新到一个环境还真不适应,朋友也没有,感觉好孤独,你回来记着和我 霍尔效应 载流子是什么意思 什么什么的平方得4分之49?要求几个,要分别写出. 谁能解释一下低温载流子的冻析效应? 求朋友们帮个忙,帮我翻译这两段话.非常感谢啊!介绍了基于 S7-300PLC 、S7-400PLC的西门子先进自动化实验室的构建思路,改变了传统的以单一PLC为基础的实验模式,通过PROFIBUS、PROFINET将 PLC 的控制 浓度为25%的盐水60克,加入20克的水,20克盐,搅拌后的盐水的浓度是多少? 人是类人猿演变的,那么,老鼠是什么演变的呢? 单句改错和英文短语1.All the students are bored with his bored speech._____2.We usually have some bread and a glass of milk with breakfast._____3.His was such good a plan that we all agreed to accept it._____4.Why don't try something differen 德国小伙:德国政府可没收空置7年房屋中国记协严厉谴责陈永洲涉嫌虚假报道等伊朗处死16名反政府组织囚犯 回应边中联重科:看过央视才知陈永洲案情人民日报评陈永洲事件:守住记者职业底湖南三干部偷拍县委书记续:视频曾选择卡梅伦为美监听辩护摩根大通花大钱了官司港澳记者将走访浙江产业集聚区聚焦去美国化:是否为世界多极化发展的大陆赠台大熊猫宝宝命名“圆仔” 成台微信营销&微商实战训练营招募(第三期千万要注意!这些房子再便宜也不能要。惯子如杀子,何为惯?罗列十大溺爱做法海带焖鸭累不累,脚知道。苦不苦,心知道英语词汇学习:词根&词缀微信营销&微商实战训练营招募(第三期你是被爱了,还是被玩了?(进来看看就秋季保湿提前看金融民工就业:校花去了券商总裁办,学一年时间销售从0做到1000万。。。迷之大陆玫瑰的故事极品医生花心保镖通天魔尊重生世家女祸乱创世纪网游之乌龙夫妻一代人皇试睡员巅峰足球摩崖石刻旅游嫘祖庙旅游架壑船棺旅游中国西部大峡谷旅游少华山旅游烽山旅游黄飞鸿纪念馆旅游总督官邸旅游曾家山旅游七曲山大庙旅游三腊瀑布旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘