filereg.bas

vb 写的播放器 对新的开发者很有用。写的不错。非常实际

Attribute VB_Name = "FileReg"

' **********************************************************************
'  描  述：存vb代码写的winnap程序，非常酷
'  Play78.com : 网站导航，源码之家，绝对开源
'  海阔天空收集整理
'  主站地址：http://www.play78.com/
'  源码下载地址：http://www.play78.com/blog
'  图片下在地址：http://www.play78.com/pic
'  QQ：13355575
'  e-mail:[e-mail]
'  编写日期：2005年08月30日
' **********************************************************************

Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long         ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_DYN_DATA = &H80000006
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const HKEY_USERS = &H80000003

Public Sub RegFile(ByVal File As String, ByVal IconIndex As String)
Dim hKey As Long
RegCreateKey HKEY_CLASSES_ROOT, File, hKey
RegSetValueEx hKey, "", 0, 1, ByVal "WinampFile", 100
RegCreateKey HKEY_CLASSES_ROOT, "WinampFile\DefaultIcon", hKey
RegSetValueEx hKey, "", 0, 1, ByVal App.Path & "\Winamp.icl," & IconIndex, 100
RegCreateKey HKEY_CLASSES_ROOT, "WinampFile\shell\open\command", hKey
RegSetValueEx hKey, "", 0, 1, ByVal App.Path & "\" & App.EXEName & ".EXE %1", 100
End Sub