在Windows操作系統中改變文件打開方式

2019-11-18 17:32:19

字體：大中小

來源：轉載

供稿：網友

在Windows95／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.0IDE中，新建工程PRoject1，在Form1上添加命令按鈕Command1。
　　2、選擇菜單“工程”—“添加模塊”—“模塊”—“打開”，在Project1中添加模塊Moudle1。
　　3、在Moudle1“通用—聲明”部分聲明API函數和常量。
　　ConstREG_SZ=1
　　GlobalConstHKEY_CLASSES_ROOT=＆H80000000
DeclareFunctionOSRegQueryValueExLib“advapi32”Alias“RegQueryValueExA”(ByValhKeyAsLong,ByVallpszValueNameAsString,
ByValdwReservedAsLong,lpdwTypeAsLong,lpbDataAsAny,cbDataAsLong)AsLong
DeclareFunctionOSRegOpenKeyLib“advapi32”Alias“RegOpenKeyA”(ByValhKeyAsLong,ByVallpszSubKeyAsString,phkResultAsLong)AsLong
DeclareFunctionOSRegSetValueExLib“advapi32”Alias“RegSetValueExA”（ByValhKeyAsLong,ByVallpszValueNameAsString,
ByValdwReservedAsLong,ByValfdwTypeAsLong,lpbDataAsAny,ByValcbDataAsLong)AsLong
DeclareFunctionOSRegCloseKeyLib“advapi32”Alias“RegCloseKey”(ByValhKeyAsLong)AsLong
　　4、在Moudle1中編寫函數。
　　FunctionRegOpenKey(ByValhKeyAsLong,ByVallpszSubKeyAsString,
phkResultAsLong)AsBoolean
　　DimlResultAsLong
　　OnErrorGoTo0`關閉錯誤陷阱
　　lResult=OSRegOpenKey(hKey,lpszSubKey,phkResult)
　　IflResult=0Then
　　RegOpenKey=True
　　Else
　　RegOpenKey=False
　　EndIf
　　EndFunction
　　FunctionRegSetStringValue(ByValhKeyAsLong,ByValstrValueNameAsString,
ByValstrDataAsString,OptionalByValfLog)AsBoolean
　　DimlResultAsLong
　　OnErrorGoTo0
　　lResult=OSRegSetValueEx(hKey,strValueName,0＆,REG_SZ,ByValstrData,
LenB(StrConv(strData,vbFromUnicode))＋1)
　　IflResult=0Then
　　RegSetStringValue=True
　　Else
　　RegSetStringValue=False
　　EndIf
　　EndFunction
　　FunctionStripTerminator(ByValstrStringAsString)AsString
　　DimintZeroPosAsInteger
　　intZeroPos=InStr(strString,Chr＄(0))
　　IfintZeroPos>0Then
　　StripTerminator=Left＄(strString,intZeroPos－1)
　　Else
　　StripTerminator=strString
　　EndIf
　　EndFunction
　　FunctionRegQueryStringValue(ByValhKeyAsLong,ByValstrValueNameAsString,
strDataAsString)AsBoolean
　　DimlResultAsLong
　　DimlValueTypeAsLong
　　DimstrBufAsString
　　DimlDataBufSizeAsLong
　　RegQueryStringValue=False
　　OnErrorGoTo0
　　lResult=OSRegQueryValueEx(hKey,strValueName,0＆,lValueType,ByVal0＆,
lDataBufSize)
　　IflResult=ERROR_SUCCESSThen
　　IflValueType=REG_SZThen
　　strBuf=String(lDataBufSize,“”)
　　lResult=OSRegQueryValueEx(hKey,strValueName,0＆,0＆,ByValstrBuf,
lDataBufSize)
　　IflResult=ERROR_SUCCESSThen
　　RegQueryStringValue=True
　　strData=StripTerminator(strBuf)
　　EndIf
　　EndIf
　　EndIf
　　EndFunction
　　5、雙擊Command1，編寫Click事件代碼。
　　PrivateSubCommand1_Click()
　　DimhKeyAsLong
　　DimMyReturnAsLong
　　DimMyDataAsString
　　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.exe1％”,False)
　　IfMyReturnThen
　　MsgBox“改變文件打開方式成功！”,vbInformation,“請注意”
　　Else
　　MsgBox“改變文件打開方式失??！”,vbExclamation,“請注意”
　　EndIf
　　OSRegCloseKey(hKey)
　　EndSub
　　6、按F5運行程序，在簡體中文Windows95／NT／98、VB5.0／6.0環境中調試通過。
　?、胬肈elphi編程
　　1、在Delphi3.0IDE中，新建工程Project1，在Form1上添加按鈕Button1。
　　2、在uses子句中添加Registry。
　　3、雙擊Button1，編寫Click事件代碼。
　　procedureTForm1.Button1Click(Sender:Tobject);
　　var
　　MyRegistry:TRegINIFile;
　　Return:string;
　　begin
　　try
　　MyRegistry:=TRegINIFile.Create(``);
　　MyRegistry.RootKey:=HKEY_CLASSES_ROOT;
　　Return:=MyRegistry.ReadString(`.gid`,``,`No!NotFoundtheKey!`);
　　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環境中調試通過。->

上一篇：VisualBasic程序中如何啟動默認的撥號連接

下一篇：在VisualBasic中判斷Windows9x的運行模式