估计这个能值50分(50分)

  • 主题发起人 主题发起人 wp231957
  • 开始时间 开始时间
W

wp231957

Unregistered / Unconfirmed
GUEST, unregistred user!
第一,如何把EXE嵌入到另一个EXE中 我用{$R MYTOOLS.EXE}无法编译

第2:我如何调用嵌入到本EXE中的另一个EXE呢
 
给你提供一个思路,打包文件就是这么做的,只不过做了压缩而已.
你用TSTREAM和TFILESTREAM,把要欠入的文件写到要主文件的尾后.

注意先确定原先主文件的大小和被欠入文件的大小.然后要用的时候就读主文件,
从主文件大小开始处读,读被欠入文件大小个字节,然后保存为一个EXE文件就可以
用了.
 
hao ,我看看先
 
把EXE文件作为资源编入到新的exe中,使用时释放并调用
 
如何获取EXE自己的文件大小呢

另:
把EXE文件作为资源编入到新的exe中,使用时释放并调用
我也想这样做,可是不知道具体怎么做
 
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。现在可以运行你释放的文件了

给分吧[:D]
 
好,弄不好再找你
先把分分给你
 
后退
顶部