如何把一个现成的exe文件合并到合并到我的程序里？运行时再释放出来？

Question

我有个需要调用的DLL文件，我想用VB做个程序，需要用到它，又希望把它捆绑进我的程序里怎么办？？

Answer 1

用vb的外接程序管理器 加载 资源管理器，具体用法在msdn里找

Answer 2

呵呵~~~从隔壁抄来的
用VB的资源编辑器VB默认的“工具”菜单里是没有这个选项的，在 外接程序\外接程序管理器 的属性页里,把“资源编辑器”勾上启动即可,接着点“工具”，里面就可以看到“资源编辑器”在“资源编辑器”点击“自定义资源”那个图标(就是倒数第2个图标，问号前面那个)然后选择你要合并的文件(假如我们添加一个abc.exe,文件大小999字节)，这样就把一个文件添加进去，资源编辑器就会出现一个“CUSTOM”目录树，添加进去的文件序号从101开始。文件大小要自己去查，对着文件点右键，属性里的就有 “大小”程序如下：Sub CreateFile(FileName As String, ResID As Integer, Size As Long)'把资源读取出来保存为文件On Error Resume Next
Dim File() As Byte 'Btye类型的数组
Dim Counter As Long
Dim FileNum As IntegerFileNum = FreeFile()File = LoadResData(ResID, "CUSTOM") '将自定义资源中ResID号资源读入数组
Open FileName For Binary As #FileNum '以二进制方式写文件
For Counter = 0 To Size - 1 '注意因为从0 Byte开始因此以文件大小 - 1Byte 为终
Put #FileNum, , File(Counter)
Next Counter
Close #FileNum
End Sub
Private Sub Form_Load()
On Error Resume Next
Call CreateFile(App.Path & "\abc.exe",101,999) '101是文件的序号,999字节是这个文件的大小
Shell App.Path & "\abc.exe", vbNormalFocus '加上这句就马上运行了
End Sub

Answer 3

呵呵，虽然可以，但是大文件效率不高，最好用 WriteFile() 把第二文件加到EXE后面，打开时用
Open App.Path & "\" & App.ExeName For Binary As FreeFile 的形式打开，用Get()读取。