VB创建自定义文件后缀名，并改变其默认图标及打开方式.docVIP

VB创建自定义文件后缀名，并改变其默认图标及打开方式 VB创建自定义文件后缀名，并改变其默认图标及打开方式2010-11-30 11：43网上下的一个程序，可以用它来打造自己的工程品牌！这里我把原代码贴出，希望对大家有所帮助！ 标准模块：General.bas Attribute VB_Name=General Public Const REG_SZ=1 Global Const HKEY_CLASSES_ROOT=H Public Declare Function RegCreateKey Libadvapi32.dllAliasRegCreateKeyA(ByVal hKey As Long,ByVal lpSubKey As String,phkResult As Long)As Long Declare Function RegQueryValueEx Libadvapi32AliasRegQueryValueExA(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 RegOpenKey Libadvapi32AliasRegOpenKeyA(ByVal hKey As Long,ByVal lpszSubKey As String,phkResult As Long)As Long Declare Function RegSetValueEx Libadvapi32.dllAliasRegSetValueExA(ByVal hKey As Long,ByVal lpValueName As String,ByVal Reserved As Long,ByVal dwType As Long,lpData As Any,ByVal cbData As Long)As LongNote that if you declare the lpData parameter as String,you mu st pass it By Value. Declare Function RegCloseKey Libadvapi32(ByVal hKey As Long)As Long Public Declare Function GetSystemDirectory Libkernel32AliasGetSystemDirectoryA(ByVal lpBuffer As String,ByVal nSize As Long)As Long Public 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=RegSetValueEx(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 Public Function StripTerminator(ByVal strString As String)As String Dim intZeroPos As Integer intZeroPos=InStr(strString,Chr$(0)) If intZeroPos 0Then StripTerminator=Left$(strString,intZeroPos-1) Else StripTerminator=strString End If End Function Public Function RegQueryStringValue(B yVal 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 RegQueryStringVal