Option Explicit
Dim AppEXE() As Byte
Dim FileNum As Long
Private Sub Test()
'将自定义资源中101号资源读入数组
AppEXE = LoadResData( 101 , "CUSTOM" )
FileNum = FreeFile
'以二进制方式写(生成)temp1.exe到当前目录
Open "C:\Test.exe" For Binary As #FileNum
Put #1 , , AppEXE
Close #FileNum
'运行Test.exe
Shell "C:\Test.exe"
End Sub
VB 调用资源文件例子(文件打包与释放)
猜你喜欢
转载自yeuego.iteye.com/blog/947481
今日推荐
周排行