试一试FindExecutable,声明如下:
Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
解决方案 »
- 麻烦哪位大哥帮忙把这个VB.NET的代码转成VB6的?
- 已运行了ADO2.7为什么我打包的VB程序在一些XP的操作系统上找不到数据库提供者??急啊~~~~
- 有没有啥方法释放掉内存的东西(用VB代码)
- 如何用代码判断mshflexgrid控件的行值发生了改变(在线等候)
- 水晶报表8.0的问题!
- 谁知道 ??? 有这样的控件吗 ???
- 如何编制帮助文件(*.hlp)
- 指纹识别系统(高分)
- VB初学者的一个问题,增加和保存问题
- 我用dao连接数据库,DataEnvironment给datareport提供数据,该如何控制sql语句?
- 如何得到当前窗体中的控件焦点,如何把这个焦点保存起来?以后可以随时调用?
- 请有高程考试经验的人进(一天之内结帖,散195分)
系统会自动处理的,用这个函数显示就OK了:
ShellExecute(0, "open", "要看的文件全路径", vbNullString, vbNullString, vbNormal)
Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
说明
查找与一个指定文件关联在一起的程序的文件名。可用Windows注册表编辑器将文件类型与特定的应用程序关联到一起。比如,扩展名为.TXT的文本文件通常与Windows记事本(Notepad.exe)关联到一起。如在文件管理器中双击含.TXT扩展名的一个文件,会自动启动记事本,并在其中载入文本文件
返回值
Long,大于32表示成功;31表示不存在文件类型的关联;0表示系统内存或资源不足;ERROR_FILE_NOT_FOUND表示指定的文件不存在;ERROR_PATH_NOT_FOUND表示指定的路径不存在;ERROR_BAD_FORMAT表示执行格式无效
参数表
参数 类型及说明
lpFile String,指定要为其查找相关程序的一个文件名或程序名
lpDirectory String,要使用的默认目录的完整路径
lpResult String,指定一个字串缓冲区,用于装载可执行程序的名字。注意这个字串预先至少都要初始化成MAX_PATH个字符的长度
如过想掉也不用知道啊!直接用API ShellExecute打开图像,不就好了!让系统判断!
其内容中保存有打开该图片的应用程序或该应用程序的CLSID值,如果是CLSID值就要再找一次,就找到应用程序是什么啦