用VB的Resource Editor(菜单Add-ins-〉Addin Manager--〉选择VB6 Resource Editor)用Add Custom Resource添加EXE等文件到资源文件中。比如该其RESID为999,则可通过LoadResData在 使用该文件前从资源中释放该文件,大致如下: Dim ar() As Byte ar = LoadResData(999, "CUSTOM") Open 临时文件 For Binary Access Write As #1 Put #1, , ar Close #1
使用该文件前从资源中释放该文件,大致如下: Dim ar() As Byte
ar = LoadResData(999, "CUSTOM")
Open 临时文件 For Binary Access Write As #1
Put #1, , ar
Close #1