module1.bas

fanlsh播放器,效果非常好,经典的播放软件

Attribute VB_Name = "Module1"
'****************************************************************************
'人人为我，我为人人
'枕善居
'发布日期：05/04/01
'描  述：小巧SWF格式的Flash文件浏览器源码示例
'网  站：http://www.mndsoft.com
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
'IE 临时文件夹

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long

Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long