2750
社区成员
19.7w+
社区内容
- 主页
如何从自定义的文件启动应用程序
我写的一个应用程序要读写一些自定义的二进制文件,就像word可以读写***.doc文件一样
可以双击***.doc启动word,并且***.doc有自己的图标 .我的程序也要读写一些文件例如
自定义的****.gis文件,如何让他和***.doc一样有自己的图标并且可以通过双击启动我的程序.
请指教 limingfang@263.net
可以双击***.doc启动word,并且***.doc有自己的图标 .我的程序也要读写一些文件例如
自定义的****.gis文件,如何让他和***.doc一样有自己的图标并且可以通过双击启动我的程序.
请指教 limingfang@263.net
...全文
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"
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))。
您可以使用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日
在安装程序中修改注册表，把文件关联到自己的程序。若无安装程序，可在程序中加入把文件关联到自己程序的代码。