|
在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環境中調試通過。
|
