5、如何在Windows操作系統(tǒng)中改變文件打開方式
在Windows 95／NT／98操作系統(tǒng)中改變文件打開方式的問題，又可稱為改變文件類型關(guān)聯(lián)的問題，即把某類型（擴(kuò)展名）的文件與某應(yīng)用程序關(guān)聯(lián)，例如通常當(dāng)雙擊＊.txt文件時(shí)系統(tǒng)自動(dòng)調(diào)用Notepad.exe。本文介紹利用Windows注冊(cè)表編輯器Regedit.exe手工或編程改變文件打開方式的方法，并提供程序?qū)嵗?br> 一、基本思路：
1、注冊(cè)表編輯器Regedit.exe是用于更改系統(tǒng)注冊(cè)表設(shè)置的高級(jí)工具，包含了關(guān)于系統(tǒng)配置及運(yùn)行的重要信息，默認(rèn)訪問路徑為C:\Windows\Regedit.exe。雙擊Regedit.exe圖標(biāo)，運(yùn)行注冊(cè)表編輯器。在左側(cè)顯示欄內(nèi)看到HKEY_CLASSES_ROOT、KEY_CURRENT_USER、HKEY_LOCAL_MACHINE等主鍵。與文件類型有關(guān)的所有主鍵、鍵名、鍵值都存放在HKEY_CLASSES_ROOT下。
◆雙擊HKEY_CLASSES_ROOT，向下拖動(dòng)滾動(dòng)條，找到.txt主鍵，右側(cè)顯示欄內(nèi)“txtfile”說明：在HKEY_CLASSES_ROOT下有一txtfile主鍵，其下存放了打開＊.txt文件應(yīng)用程序的有關(guān)信息。
◆向下拖動(dòng)滾動(dòng)條，找到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)注冊(cè)表，在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)注冊(cè)表。
◆編程：利用VB、Delphi、C＋＋Builder等讀寫系統(tǒng)注冊(cè)表，可自動(dòng)改變文件打開方式。本文提供VB、Delphi編程實(shí)例。
二、編程實(shí)例：
?、謇肰B編程
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)閉錯(cuò)誤陷阱
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,“請(qǐng)注意”
Else
MsgBox “改變文件打開方式失?。?#8221;,vbExclamation,“請(qǐng)注意”
End If
OSRegCloseKey (hKey)
End Sub
6、按F5運(yùn)行程序，在簡(jiǎn)體中文Windows95／NT／98、VB5.0／6.0環(huán)境中調(diào)試通過。
