日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

如何在Windows設置系統中改變文件打開方式

如何在Windows設置系統中改變文件打開方式

更新時間:2022-05-14 文章作者:未知 信息來源:網絡 閱讀次數:

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

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 国产精品丝袜xxxxxxx | 午夜视频在线观看免费观看在线观看 | 欧美视频一区二区三区 | 四虎精品影院在线观看视频 | 九草视频在线 | 手机看片日韩国产 | 亚洲激情99 | 综合图色 | 国产激情视频网站 | 欧美成人一级毛片 | 久久国产精品99国产精 | 成人免费观看高清在线毛片 | 玖玖影院在线观看 | 精品亚洲成a人在线观看 | 国精品一区二区三区 | 青草久久网 | 天天射天天爽 | 久操精品在线 | 亚洲首页在线观看 | 亚洲精品一区在线观看 | 久久久久久爱 | 精品精品国产高清a毛片牛牛 | 99热精品成人免费观看 | 国产精品久久久久久久网站 | 天天上天天干 | 521a久久九九久久精品 | 国产精品夜夜春夜夜爽久久 | 高清视频一区二区三区 | 亚洲国产成人超福利久久精品 | 欧美肥妇人妖xxxxx | 水蜜桃视频在线观看免费 | 久久久久久免费观看 | 天天干天天做天天射 | 国产性较精品视频免费 | 天天操操操 | 最新国产美女肝交视频播放 | 夜夜操网| 九九热观看视频 | 蜜桃在线视频 | 国产精品久久大陆 | 欧美极品xxxxⅹ另类 |