W wp231957 Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-05 #1 第一,如何把EXE嵌入到另一个EXE中 我用{$R MYTOOLS.EXE}无法编译 第2:我如何调用嵌入到本EXE中的另一个EXE呢
M _Murray Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-05 #2 给你提供一个思路,打包文件就是这么做的,只不过做了压缩而已. 你用TSTREAM和TFILESTREAM,把要欠入的文件写到要主文件的尾后. 注意先确定原先主文件的大小和被欠入文件的大小.然后要用的时候就读主文件, 从主文件大小开始处读,读被欠入文件大小个字节,然后保存为一个EXE文件就可以 用了.
给你提供一个思路,打包文件就是这么做的,只不过做了压缩而已. 你用TSTREAM和TFILESTREAM,把要欠入的文件写到要主文件的尾后. 注意先确定原先主文件的大小和被欠入文件的大小.然后要用的时候就读主文件, 从主文件大小开始处读,读被欠入文件大小个字节,然后保存为一个EXE文件就可以 用了.
L lxw5214 Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-05 #4 把EXE文件作为资源编入到新的exe中,使用时释放并调用
W wp231957 Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-05 #5 如何获取EXE自己的文件大小呢 另: 把EXE文件作为资源编入到新的exe中,使用时释放并调用 我也想这样做,可是不知道具体怎么做
T tianliangle2003 Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-05 #6 1。建立资源文件 建立个.rc文件例如myapp.rc,内容为app exefile yourapp.exe 用brcc32.exe 编译rc文件,你会看到.res被生成例如myapp.res 2。在你的工程里添加{$R myapp.res} 3.调用的时候用下面的函数先释放可执行文件 function ExtractRes(ResType, ResName, ResNewName: string): boolean; var Res: TResourceStream; begin try Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType)); try Res.SavetoFile(ResNewName); Result := true; finally Res.Free; end; except Result := false; end; end; 4。现在可以运行你释放的文件了 给分吧[]
1。建立资源文件 建立个.rc文件例如myapp.rc,内容为app exefile yourapp.exe 用brcc32.exe 编译rc文件,你会看到.res被生成例如myapp.res 2。在你的工程里添加{$R myapp.res} 3.调用的时候用下面的函数先释放可执行文件 function ExtractRes(ResType, ResName, ResNewName: string): boolean; var Res: TResourceStream; begin try Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType)); try Res.SavetoFile(ResNewName); Result := true; finally Res.Free; end; except Result := false; end; end; 4。现在可以运行你释放的文件了 给分吧[]