如何在 Windows操作系统中改变文件打开方式

在Windows 95／NT／98操作系统中改变文件打开方式的问题，又可称为改变文件类型关联的问题，即把某类型（扩展名）的文件与某应用程序关联，例如通常当双击*.txt文件时系统自动调用Notepad.exe。本文介绍利用Windows注册表编辑器Regedit.exe手工或编程改变文件打开方式的方法，并提供程序实例。

一、基本思路：

　　１、注册表编辑器Regedit.exe是用于更改系统注册表设置的高级工具，包含了关于系统配置及运行的重要信息，默认访问路径为C:\Windows\Regedit.exe，。双击Regedit.exe图标，运行注册表编辑器。在左侧显示栏内看到HKEY_CLASSES_ROOT、HKEY_CURRENT_USER、HKEY_LOCAL_MACHINE等主键。与文件类型有关的所有主键、键名、键值都存放在HKEY_CLASSES_ROOT下。

　　改变打开文件方式的方法（例如用VISIO打开*.exc文件）：

　　◆编程：利用VB、Delphi、C++Builder等读写系统注册表，可自动改变文件打开方式。本文提供VB、Delphi编程实例。

　　二、编程实例：

　　１、在VB5.0 IDE中，新建工程Project1，在Form1上添加命令按钮Command1。

　２、选择菜单“工程”棥疤砑幽？椤睏“模块”棥按蚩?保?赑roject1中添加模块Moudle1。

　　３、在Moudle１“通用椛?鳌辈糠稚?鰽PI函数和常量。

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

　　４、在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

　　５、双击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

　　６、按F5运行程序，在简体中文Windows95／NT／98、VB5.0／6.0环境中调试通过。

　　１、在Delphi3.0 IDE中，新建工程Project1，在Form1上添加按钮Button1。

　２、在uses子句中添加Registry。

　　３、双击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;

　　４、按F9运行程序，在简体中文Windows95／NT／98、Delphi3.0／4.0环境中调试通过。

作者通信地址：（230031）安徽省合肥市炮兵学院研究生系 张建军（收）

联系电话： （0551）5560324 （张建军 宿舍）

（0551）5562566 转 68750、68210（研究生系值班室）

Email： davidhy@263.net

一九九九年七月七日