如何从自定义的文件启动应用程序

limingfang 2002-07-20 11:17:45
我写的一个应用程序要读写一些自定义的二进制文件,就像word可以读写***.doc文件一样
可以双击***.doc启动word,并且***.doc有自己的图标 .我的程序也要读写一些文件例如
自定义的****.gis文件,如何让他和***.doc一样有自己的图标并且可以通过双击启动我的程序.



请指教 limingfang@263.net
...全文
108 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
limingfang 2002-07-24
  • 打赏
  • 举报
回复
我是不知道该怎嬷在程序中加入把文件关联到自己程序的代码
lxqlogo0 2002-07-24
  • 打赏
  • 举报
回复
Public Sub associate(EXT As String, FileType As String, FileName As String) '创建文件关联
On Error Resume Next
Dim b As Object
Set b = CreateObject("wscript.shell")
b.regwrite "HKCR\" & EXT & "\", FileType
b.regwrite "HKCR\" & FileType & "\", "MY file"
b.regwrite "HKCR\" & FileType & "\DefaultIcon\", FileName
b.regwrite "HKCR\" & FileType & "\shell\open\command\", FileName & " %L"
b.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & EXT & "\Application"
b.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & EXT & "\Application", FileName
b.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & EXT & "\OpenWithList\"
b.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & EXT & "\OpenWithList\a", FileName
End Sub
例如:
associate ".java", "javaFile", App.Path & "\Java编辑器.exe"
acptvb 2002-07-24
  • 打赏
  • 举报
回复
感谢您使用微软产品。

您可以使用RegCreateKey,RegSetValue等修改注册表的API函数设置文件的关联和图标。您需要在注册表中建立如下结构注册键及键值
.bar = MyApp
MyApp = My Application
|
-- DefaultIcon= myIcon.ico
|
-- Shell
|
----open
|
------command = MyApp.exe %1

以下链接提供了详细的源代码及说明:
HOWTO: Associate a Custom Icon with a File Extension
http://support.microsoft.com/support/kb/articles/q247/5/29.asp

HOWTO: Associate a File Extension with Your Application (Win32)
http://support.microsoft.com/support/kb/articles/q185/4/53.asp

关于与注册表有关的函数请参考:
Registry Functions
http://msdn.microsoft.com/library/en-us/sysinfo/regapi_59mb.asp
- 微软全球技术中心 VB技术支持

本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款

(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。

为了为您创建更好的讨论环境,请参加我们的用户满意度调查

(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。
daehappy 2002-07-21
  • 打赏
  • 举报
回复
up!gz!
有哥 2002-07-21
  • 打赏
  • 举报
回复
在安装程序中修改注册表,把文件关联到自己的程序。若无安装程序,可在程序中加入把文件关联到自己程序的代码。

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧