在Windows 95／NT／98操作系統(tǒng)中改變文件打開方式的問題，又可稱為改變文件類型關(guān)聯(lián)的問題，即把某類型（擴展名）的文件與某應(yīng)用程序關(guān)聯(lián)，例如通常當(dāng)雙擊＊.txt文件時系統(tǒng)自動調(diào)用Notepad.exe。本文介紹利用Windows注冊表編輯器Regedit.exe手工或編程改變文件打開方式的方法，并提供程序?qū)嵗��?br>　　一、基本思路：
　　1、注冊表編輯器Regedit.exe是用于更改系統(tǒng)注冊表設(shè)置的高級工具，包含了關(guān)于系統(tǒng)配置及運行的重要信息，默認(rèn)訪問路徑為C:\Windows\Regedit.exe。雙擊Regedit.exe圖標(biāo)，運行注冊表編輯器。在左側(cè)顯示欄內(nèi)看到HKEY_CLASSES_ROOT、KEY_CURRENT_USER、HKEY_LOCAL_MACHINE等主鍵。與文件類型有關(guān)的所有主鍵、鍵名、鍵值都存放在HKEY_CLASSES_ROOT下。
　　◆雙擊HKEY_CLASSES_ROOT，向下拖動滾動條，找到.txt主鍵，右側(cè)顯示欄內(nèi)“txtfile”說明：在HKEY_CLASSES_ROOT下有一txtfile主鍵，其下存放了打開＊.txt文件應(yīng)用程序的有關(guān)信息。
　　◆向下拖動滾動條，找到txtfile主鍵，右側(cè)顯示欄內(nèi)“文本文檔”為文件類型描述。雙擊txtfile，DefaultIcon右側(cè)顯示欄內(nèi)“shell32.dll,－152”為＊.txt文件的圖標(biāo)；shell\open\command，右側(cè)顯示欄內(nèi)“C:\WINDOWS\NOTEPAD.EXE ％1”為打開＊.txt文件的應(yīng)用程序名稱及參數(shù)�！　「淖兇蜷_文件方式的方法（例如用VISIO打開＊.exc文件）：
　　◆手工：打開系統(tǒng)注冊表，在HKEY_CLASSES_ROOT下找到.exc及另一主鍵名，找到此主鍵，將shell\open\command右側(cè)顯示欄內(nèi)“C:\WINDOWS\NOTEPAD.EXE ％1”改為“C:\VISIO.EXE ％1”（假設(shè)VISIO.EXE的訪問路徑是C:\，具體視情況而定），按F5刷新系統(tǒng)注冊表。
　　◆編程：利用VB、Delphi、C＋＋Builder等讀寫系統(tǒng)注冊表，可自動改變文件打開方式。本文提供VB、Delphi編程實例。
　　二、編程實例：
　�、謇�用VB編程
　　1、在VB5.0 IDE中，新建工程Project1，在Form1上添加命令按鈕Command1。
　　2、選擇菜單“工程”—“添加模塊”—“模塊”—“打開”，在Project1中添加模塊Moudle1。
　　3、在Moudle1“通用—聲明”部分聲明API函數(shù)和常量。
　　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中編寫函數(shù)。
　　Function RegOpenKey(ByVal hKey As Long, ByVal lpszSubKey As String,
phkResult As Long) As Boolean
　　 Dim lResult As Long
　　 On Error GoTo 0 ` 關(guān)閉錯誤陷阱
　　 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環(huán)境中調(diào)試通過。