发表评论(0)作者：, 平台：, 阅读：7639, 日期：2000-03-12
在Windows操作系统中改变文件打开方式
张建军 滕明贵 韩莹
在Windows 95／NT／98操作系统中改变文件打开方式的问题，又可称为改变文件类型关联的问题，即把某类型（扩展名）的文件与某应用程序关联，例如通常当双击＊.txt文件时系统自动调用Notepad.exe。本文介绍利用Windows注册表编辑器Regedit.exe手工或编程改变文件打开方式的方法，并提供程序实例。
一、基本思路：
1、注册表编辑器Regedit.exe是用于更改系统注册表设置的高级工具，包含了关于系统配置及运行的重要信息，默认访问路径为C:WindowsRegedit.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文件的图标；shellopencommand，右侧显示栏内“C:WINDOWSNOTEPAD.EXE ％1”为打开＊.txt文件的应用程序名称及参数。
2、改变打开文件方式的方法（例如用VISIO打开＊.exc文件）：
◆手工：打开系统注册表，在HKEY_CLASSES_ROOT下找到.exc及另一主键名，找到此主键，将shellopencommand右侧显示栏内“C:WINDOWSNOTEPAD.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 + "shellopencommand", 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＋`shellopencommand`,``,`c:visio.exe ％1`);
finally
MyRegistry.Free;
end;
ShowMessage(`改变文件打开方式成功！`);
end;
4、按F9运行程序，在简体中文Windows95／NT／98、Delphi3.0／4.0环境中调试通过。
张建军 滕明贵 韩莹
在Windows 95／NT／98操作系统中改变文件打开方式的问题，又可称为改变文件类型关联的问题，即把某类型（扩展名）的文件与某应用程序关联，例如通常当双击＊.txt文件时系统自动调用Notepad.exe。本文介绍利用Windows注册表编辑器Regedit.exe手工或编程改变文件打开方式的方法，并提供程序实例。
一、基本思路：
1、注册表编辑器Regedit.exe是用于更改系统注册表设置的高级工具，包含了关于系统配置及运行的重要信息，默认访问路径为C:WindowsRegedit.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文件的图标；shellopencommand，右侧显示栏内“C:WINDOWSNOTEPAD.EXE ％1”为打开＊.txt文件的应用程序名称及参数。
2、改变打开文件方式的方法（例如用VISIO打开＊.exc文件）：
◆手工：打开系统注册表，在HKEY_CLASSES_ROOT下找到.exc及另一主键名，找到此主键，将shellopencommand右侧显示栏内“C:WINDOWSNOTEPAD.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 + "shellopencommand", 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＋`shellopencommand`,``,`c:visio.exe ％1`);
finally
MyRegistry.Free;
end;
ShowMessage(`改变文件打开方式成功！`);
end;
4、按F9运行程序，在简体中文Windows95／NT／98、Delphi3.0／4.0环境中调试通过。
RSS地址