Chishin Blog 千里之堤毁于蚁穴 —— 小歆
[VB函数]将资源文件输出到指定目录下
发表于 2015-9-10 | | 软件源码
Private Function UnRes(ByVal ResID As Integer, ByVal ResName As String, ByVal UnResPath As String)
Dim Temp() As Byte
Temp = LoadResData(ResID, ResName)
Open UnResPath For Binary As #1
Put #1, , Temp()
Close #1
End Function

Private Sub Form_Load()
Call UnRes(101, "CUSTOM", "c:\123.exe")
End Sub

发表评论:

TOP