程序代码:
Option Explicit
'
*************************************************************************
' **模 块 名:GetResFile
' **说 明:将自定义资源中的文件释放出来
' **创 建 人:嗷嗷叫的老马
' **描 述:紫水晶工作室 http://www.m5home.com
' **日 期:2007年5月24日
' **版 本:V3.0
' *************************************************************************
Private Declare Sub CopyMemory Lib " kernel32.dll " Alias " RtlMoveMemory " ( _
ByVal Destination As Long , _
ByVal Source As Long , _
ByVal Length As Long )
Public Function GetResFile(ByVal ResID As Long , ByVal FileName As String ) As Boolean
Dim bFile() As Byte
' **模 块 名:GetResFile
' **说 明:将自定义资源中的文件释放出来
' **创 建 人:嗷嗷叫的老马
' **描 述:紫水晶工作室 http://www.m5home.com
' **日 期:2007年5月24日
' **版 本:V3.0
' *************************************************************************
Private Declare Sub CopyMemory Lib " kernel32.dll " Alias " RtlMoveMemory " ( _
ByVal Destination As Long , _
ByVal Source As Long , _
ByVal Length As Long )
Public Function GetResFile(ByVal ResID As Long , ByVal FileName As String ) As Boolean
Dim bFile() As Byte