我想问一个问题，但是好想很难的，所以想多给点分，但是我只能出100分，（我有423分），我想，如果谁能回答的话，我出422分，给最让我满

Question

直接把要调用的部分写成一个小部分，用shell运行不就得了？调用的代码就写在文件图表的dbclick事件里

Answer 1

对文件进行关联，需要修改注册表。
http://www.yesky.com/20011026/202351.shtml
注意好几页。给分吧！

Answer 2

http://www.cx66.com/cxgzs/program/vb/608.htm

Answer 3

如何在Windows操作系统中改变文件打开方式 
作者：  评价：  上站日期:  
内容说明：  
来源：  --------------------------------------------------------------------------------    在Windows 95／NT／98操作系统中改变文件打开方式的问题，又可称为改变文件类型关联的问题，即把某类型（扩展名）的文件与某应用程序关联，例如通常当双击＊.txt文件时系统自动调用Notepad.exe。本文介绍利用Windows注册表编辑器Regedit.exe手工或编程改变文件打开方式的方法，并提供程序实例。
　　一、基本思路：
　　1、注册表编辑器Regedit.exe是用于更改系统注册表设置的高级工具，包含了关于系统配置及运行的重要信息，默认访问路径为C:\Windows\Regedit.exe。双击Regedit.exe图标，运行注册表编辑器。在左侧显示栏内看到HKEY_CLASSES_ROOT、KEY_CURRENT_USER、HKEY_LOCAL_MACHINE等主键。与文件类型有关的所有主键、键名、键值都存放在HKEY_CLASSES_ROOT下。
　　◆双击HKEY_CLASSES_ROOT，向下拖动滚动条，找到.txt主键，右侧显示栏内“txtfile”说明：在HKEY_CLASSES_ROOT下有一txtfile主键，其下存放了打开＊.txt文件应用程序的有关信息。
　　◆向下拖动滚动条，找到txtfile主键，右侧显示栏内“文本文档”为文件类型描述。双击txtfile，DefaultIcon右侧显示栏内“shell32.dll,－152”为＊.txt文件的图标；shell\open\command，右侧显示栏内“C:\WINDOWS\NOTEPAD.EXE ％1”为打开＊.txt文件的应用程序名称及参数。　　改变打开文件方式的方法（例如用VISIO打开＊.exc文件）：
　　◆手工：打开系统注册表，在HKEY_CLASSES_ROOT下找到.exc及另一主键名，找到此主键，将shell\open\command右侧显示栏内“C:\WINDOWS\NOTEPAD.EXE ％1”改为“C:\VISIO.EXE ％1”（假设VISIO.EXE的访问路径是C:\，具体视情况而定），按F5刷新系统注册表。
　　◆编程：利用VB、Delphi、C＋＋Builder等读写系统注册表，可自动改变文件打开方式。本文提供VB、Delphi编程实例。
　　二、编程实例：
　　㈠利用VB编程
　　1、在VB5.0 IDE中，新建工程Project1，在Form1上添加命令按钮Command1。
　　2、选择菜单“工程”—“添加模块”—“模块”—“打开”，在Project1中添加模块Moudle1。
　　3、在Moudle1“通用—声明”部分声明API函数和常量。
　　Const REG_SZ = 1
　　Global Const HKEY_CLASSES_ROOT = ＆H80000000
Declare Function OSRegQueryValueEx Lib “advapi32”Alias “RegQueryValueExA”(ByVal hKey As Long, ByVal lpszValueName As String,
ByVal dwReserved As Long, lpdwType As Long, lpbData As Any, cbData As Long) As Long
Declare Function OSRegOpenKey Lib “advapi32”Alias “RegOpenKeyA”(ByVal hKey As Long, ByVal lpszSubKey As String, phkResult As Long) As Long
Declare Function OSRegSetValueEx Lib“advapi32”Alias “RegSetValueExA”（ByVal hKey As Long, ByVal lpszValueName As String,
ByVal dwReserved As Long, ByVal fdwType As Long, lpbData As Any, ByVal cbData As Long) As Long
Declare Function OSRegCloseKey Lib“advapi32”Alias “RegCloseKey”(ByVal hKey As Long) As Long
　　4、在Moudle 1中编写函数。
　　Function RegOpenKey(ByVal hKey As Long, ByVal lpszSubKey As String,
phkResult As Long) As Boolean
　　 Dim lResult As Long
　　 On Error GoTo 0 ` 关闭错误陷阱
　　 lResult = OSRegOpenKey(hKey, lpszSubKey, phkResult)
　　 If lResult = 0 Then
　　 RegOpenKey = True
　　 Else
　　 RegOpenKey = False
　　 End If
　　End Function
　　Function RegSetStringValue(ByVal hKey As Long, ByVal strValueName As String,
ByVal strData As String, Optional ByVal fLog) As Boolean
　　 Dim lResult As Long
　　 On Error GoTo 0
　　 lResult = OSRegSetValueEx(hKey, strValueName, 0＆, REG_SZ, ByVal strData,
LenB(StrConv(strData, vbFromUnicode)) ＋ 1)
　　 If lResult = 0 Then
　　 RegSetStringValue = True
　　 Else
　　 RegSetStringValue = False
　　 End If
　　End Function
　　Function StripTerminator(ByVal strString As String) As String
　　 Dim intZeroPos As Integer
　　 intZeroPos = InStr(strString, Chr＄(0))
　　 If intZeroPos >  0 Then
　　StripTerminator=Left＄(strString, intZeroPos － 1)
　　 Else
　　 StripTerminator = strString
　　 End If
　　End Function
　　Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String,
strData As String) As Boolean
　　 Dim lResult As Long
　　 Dim lValueType As Long
　　 Dim strBuf As String
　　 Dim lDataBufSize As Long
　　 RegQueryStringValue = False
　　 On Error GoTo 0
　　 lResult = OSRegQueryValueEx(hKey, strValueName, 0＆, lValueType, ByVal 0＆,
lDataBufSize)
　　 If lResult = ERROR_SUCCESS Then
　　 If lValueType = REG_SZ Then
　　 strBuf = String(lDataBufSize, “”)
　　 lResult = OSRegQueryValueEx(hKey, strValueName, 0＆, 0＆, ByVal strBuf,
lDataBufSize)
　　 If lResult = ERROR_SUCCESS Then
　　 RegQueryStringValue = True
　　 strData = StripTerminator(strBuf)
　　 End If
　　 End If
　　 End If
　　End Function
　　5、双击Command1，编写Click事件代码。
　　Private Sub Command1_Click()
　　 Dim hKey As Long
　　 Dim MyReturn As Long
　　 Dim MyData As String
　　 MyReturn = OSRegOpenKey(HKEY_CLASSES_ROOT, “.exc”, hKey)
　　MyReturn=RegQueryStringValue(hKey,“”,MyData)
　　MyReturn=OSRegOpenKey(HKEY_CLASSES_ROOT, MyData＋“\shell\open\command”,hKey)
　　 MyReturn = RegSetStringValue(hKey,“”,“c:\visio.exe 1％”, False)
　　 If MyReturn Then
　　 MsgBox “改变文件打开方式成功！”,vbInformation,“请注意”
　　 Else
　　 MsgBox “改变文件打开方式失败！”,vbExclamation,“请注意”
　　 End If
　　 OSRegCloseKey (hKey)
　　End Sub
　　6、按F5运行程序，在简体中文Windows95／NT／98、VB5.0／6.0环境中调试通过。
　　㈡利用Delphi编程
　　1、在Delphi3.0 IDE中，新建工程Project1，在Form1上添加按钮Button1。
　　2、在uses子句中添加Registry。
　　3、双击Button1，编写Click事件代码。
　　procedure TForm1.Button1Click(Sender: Tobject);
　　var
　　 MyRegistry : TRegINIFile;
　　 Return:string;
　　begin
　　 try
　　 MyRegistry := TRegINIFile.Create(``);
　　MyRegistry.RootKey := HKEY_CLASSES_ROOT;
　　 Return:=MyRegistry.ReadString (`.gid`,``,`No! Not Found the Key!`);
　　 MyRegistry.WriteString(Return,``,`这只是一个演示！`);
　　 MyRegistry.WriteString(Return＋`\DefaultIcon`,``,`c:\visio.exe,1`);
　　 MyRegistry.WriteString(Return＋`\shell\open\command`,``,`c:\visio.exe ％1`);
　　 finally
　　 MyRegistry.Free;
　　 end;
　　 ShowMessage(`改变文件打开方式成功！`);
　　end;
　　4、按F9运行程序，在简体中文Windows95／NT／98、Delphi3.0／4.0环境中调试通过。
 
 

Answer 4

如果你知道关联，在http://www.google.com搜索“dim,，文件，注册表，关联”几个字可以找到很多文章。

Answer 5

to kill2003:
怎么去新建一个文件类型呢？我不是要改变！
                             谢谢kill2003!

Answer 6

to lonelystarcn:
我没有这个方面的经验，请给个实例！
                        谢谢！

Answer 7

用RichTextBox.Save，可以保存成任何扩展名的文件，默认为RFT格式.

Answer 8

我的意思是：
我现在要自己定义一个文件格式，例如 .abc文件，
我的程序通过某个按钮可以弹出一个打开文件的对话框，我从中选择一个 .abc文件后，可以对这个文件进行某个操作。我想，我能不能双击这个文件的图标自动就打开我的程序，然后直接进行这个操作？谢谢！

Answer 9

注册表里本没有word的，windows本也不认识.doc的，因为office在注册表里添加了一个类型，所以，我们就可以直接使用.doc啦！~~

Answer 10

给当然给！432分了！就是我还是有点疑惑！大侠帮忙帮到底。要不要先给你100分！
我的一个 sub command1_click()
        打开一个对话框
        取得文件名
        读取这个文件
        
         
        end sub
现在我想双击这个图标，就能自动打开程序，
然后就能从读取这个文件开始做下面的事情，不用打开对话框取得文件名

Answer 11

注意 了 这个 问题  的 解答方法：dim cmdline as string
cmdline=Command()用 这个 语句来获得命令行参数的，当文件被程序关联后，用这个来让程序知道那个文件要被处理！！看来这个问题只能 我自己找到答案 了，某些人来看看，你是这样回答 我的吗？还追着我要分！！好意思吗？
你 只是 回答了半道题目。

Answer 12

将以下代码存成.reg文件然后执行,系统就会用C:\ABC\abc来打开所有.abc文件，当然前提是你的abc.exe 有代码支持命令行参数Command()
至于如何在程序中向注册表添加这些值，就看看API函数吧。REGEDIT4[HKEY_CLASSES_ROOT\.abc]
@="abc_file"[HKEY_CLASSES_ROOT\abc_file]
@=""[HKEY_CLASSES_ROOT\abc_file\shell][HKEY_CLASSES_ROOT\abc_file\shell\open]
@=""[HKEY_CLASSES_ROOT\abc_file\shell\open\command]
@="C:\\ABC\\abc.exe %1"

Answer 13

关联一个程序后，在注册表里还要指定打开关联文件的程序。HKEY_CLASSES_ROOT\.doc 的“默认”项指定 Word.Document.8 。应该将程序注册后再指定关联文件。

Answer 14

王国荣的vb Windows Api中有答案