免费论文
收费论文
发表论文
我要投稿
设为首页 招标网
联系我们
经济学|管理学|法学|计算机|医学|教育|文学|政治|艺术|哲学|更多 经济学|管理学|法律|计算机|医学|教育|文学|政治|艺术|哲学|更多
 论文搜索
  推荐服务: 论文发表 收费论文
期刊论文格式
毕业论文格式
期刊论文范文
毕业论文范文
论文致谢
毕业论文答辩
开题报告
论文选题
英文摘要书写
如何在 Windows操作系统中改变文件打开方式
作者:张建军  时间:2007/11/25 12:30:00  来源:论文天下论文网

关键词

在Windows 95/NT/98操作系统中改变文件打开方式的问题,又可称为改变文件类型关联的问题,即把某类型(扩展名)的文件与某应用程序关联,例如通常当双击*.txt文件时系统自动调用Notepad.exe。本文介绍利用Windows注册表编辑器Regedit.exe手工或编程改变文件打开方式的方法,并提供程序实例。

一、基本思路:

  1、注册表编辑器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编程

  1、在VB5.0 IDE中,新建工程Project1,在Form1上添加命令按钮Command1。

 2、选择菜单“工程”棥疤砑幽?椤睏“模块”棥按蚩保赑roject1中添加模块Moudle1。

 

  3、在Moudle1“通用椛鳌辈糠稚鰽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

  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环境中调试通过。

 

  ㈡利用Delphi编程

  1、在Delphi3.0 IDE中,新建工程Project1,在Form1上添加按钮Button1。

 2、在uses子句中添加Registry。

  3、双击Button1,编写Click事件代码。

procedure TForm1.Button1Click(Sender: TObject);

var

MyRegistry : TRegINIFile;

Return:string;

begin

try

MyRegistry := TRegINIFile.Create('');

MyRegistry.RootKey := HKEY_CLASSES_ROOT;

Return:=MyRegistry.ReadString ('.gid','','No! Not Found the Key!');

MyRegistry.WriteString(Return,'','这只是一个演示!');

MyRegistry.WriteString(Return+'\DefaultIcon','','c:\visio.exe,1');

MyRegistry.WriteString(Return+'\shell\open\command','','c:\visio.exe %1');

finally

MyRegistry.Free;

end;

ShowMessage('改变文件打开方式成功!');

end;

 

  4、按F9运行程序,在简体中文Windows95/NT/98、Delphi3.0/4.0环境中调试通过。

 3000万硕士、博士、期刊论文全文下载  论文发表:快速、低价、优质
提供60万硕士论文、10万博士论文、2700万期刊论文全文下载服务,助您一臂之力! 十年的论文发表经验,快捷的论文发表服务,保证所发表的杂志均为正规合法的期刊,收费同行最低!
[本文关键字] Windows 操作系统 改变 文件
[版权说明]《如何在 Windows操作系统中改变文件打开方式》论文版权属于作者本人,您可以参考本论文进行论文创作,但不得抄袭、复制!本站免费论文主要来源于用户投稿(投稿网址),如果涉及到侵权问题,请联系lunwentianxia_card@163.com删除。
  Windows论文   操作系统论文
·Windows NT中的登记项及其完整性
·Windows 2000系统编程——进程的创建
·基于Windows Media技术的流媒体系统的设
·实现在Windows下直接读写内存的方法
·嵌入式实时操作系统的现状和未来
·提高实时操作系统的实时性能和可靠性策略
·赞自由软件(三)
·基于MSP430单片机的实时多任务操作系统
  文件论文  
·对以文件为单位组织室藏的几点认识
·电力工程设备招标程序及招标文件范本第Ⅳ部分(招标文
·哪些法律文件可以设定行政许可
·基于ComGIS的从Shape文件到Dxf文件格式
 
  推荐期刊投稿
·铁合金
·震灾防御技术
·时珍国医国药
·气象
·三江学院学报
·满族文学
·晋城政务
·环境科学导刊
·军事医学科学院院刊
·江淮论坛
 
·建筑结构
·养蜂科技
·船电技术
·畜禽业
·中国内镜杂志
·江西建材
·中国土壤与肥料
·青海教育
·产业与科技论坛
·工会博览(社会版)
 
·Chinese Science Bull
·工程力学
·中华中医药学刊
·工业控制计算机
·技术与教育
·山东人大工作
·呼兰师专学报
·干旱地区农业研究
·国外电子测量技术
·北京电影学院学报
   免费论文
公共管理 | 法学 | 理学 | 医药学
政治 | 社会学 | 文学 | 艺术 | 哲学
工学 | 计算机 | 文化 | 英语论文
经济学 | 财政 税收 | 证券金融
管理学 | 会计审计 | 工商管理 | 教育
财务管理 | 论文写作指导 | 应用文
   收费论文
马列毛邓 | 哲学宗教 | 社会科学
政治法律 | 军 事 | 经 济
文化科学教育体育 | 语言文字
文学 | 艺术 | 历史地理 | 自然科学
数理化 | 天文 | 生物科学 | 医药卫生
农业科学 | 工业技术 | 交通运输
航空航天 | 环境安全
   浏览历史

联系论文网 | 收费论文 | 发表论文 | 论文翻译 | 友情链接 | 全部分类 | 网站地图 | 期刊导航
版权所有 2008-2018 论文天下 www.lunwentianxia.com 京ICP备08104503号
.1708984