请问如何把一个文件加入新的工程中，并在生成的exe中完整写出这个文件?

Question

承上参见：
http://community.csdn.net/Expert/topic/4381/4381646.xml?temp=.8488886可分解为两个问题：
1.如何加入（我有1.exe的工程源码）到新的资源中？
2.如何编写写代码？

Answer 1

将它作为自定义资源加入到工程的资源文件中。比如编号为：101写出时用以下代码：'从资源建立二进制文件
Private sub CreateDataFile(byval sFilename as string)
    
    Dim dbByte() As Byte, freeNo As Integer
    dbByte = LoadResData(101, "CUSTOM")
    freeNo = FreeFile()    Open sFilename For Binary As #freeNo
    Put #freeNo, , dbByte
    Close #freeNo
    
End sub