如何在 Windows操作系统中改变文件打开方式 - 免费论文，论文大全,个人简历,英语学习,教案在线,实用文档,演讲发言

首页用户登录 |

用户注册

设为首页

加入收藏

联系我们

按字母检索

按声母检索

数字

符号

您的位置： 5VAR论文频道 → 论文中心 → 计算机论文 → 计算机应用

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

热 ★★★

【字体：

小

大】

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

收集整理：佚名来源：本站整理时间：2009-01-10 11:50:48 点击数：[]

[本篇论文由上帝论文网为您收集整理，上帝论文网http://paper.5var.com将为您整理更多优秀的免费论文，谢谢您的支持]

关键词：
在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下。
　　◆双击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编程
　　１、在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 Function

　　５、双击Command1，编写Click事件代

[1] [2] 下一页

Tags：

文章转载请注明来源于：5VAR论文频道 http://paper.5var.com。本站内容整理自互联网，如有问题或合作请Email至:support@5var.com
或联系QQ37750965

提供人：佚名
	上一篇文章：Oracle触发器在MIS 开发中的应用下一篇文章：基于微软公司DNA模式的办公自动化系统
【返回上一页】【打印】【关闭窗口】

中查找“如何在 Windows操作系统中改变文件打开方式”更多相关内容	5VAR论文频道
中查找“如何在 Windows操作系统中改变文件打开方式”更多相关内容	5VAR论文频道

最新热点		最新推荐		相关新闻
››Delphi 5 数据库应用中ODBC数据源的... ››用Visual Basic 6.0实现自动化测试... ››用JAVA制作ICQ ››在IIS 4.0上配置虚拟主机实现虚拟I... ››利用VB开发CAI课件 ››基于GP算法的知识发现系统 ››基于Client/Server 的课件系统的设... ››WWW对大量数据查询的一种实现 ››基于PHP的Web数据库访问 ››Developer/2000中的Forms参数及应用...				››如何在实践中对美术教材进行创造性... ››如何在阅读教学中培养学生的语感 ››如何在国际化背景下加强我国高等航... ››如何在审计中运用重要性概念 ››如何在文化交流中进行文化比较 ››如何在音乐教学中培养学生的创造性... ››如何在32个处理器中编辑并且翻译64... ››如何在 Windows操作系统中改变文件...

　文章-网友评论：（评论内容只代表网友观点，与本站立场无关！）