有没有生成EXE的代码啊. ( 积分: 100 )

就好你我做好了一个软件然后.运行这个软件.在这个软件上设置一些东西想生成EXE.有没有这个代码?

就好你我做好了一个软件然后.运行这个软件.在这个软件上设置一些东西想生成EXE.有没有这个代码?

[xx(]
提交失败，白写了。

简单的说一下。
你可以用程序写个简单的脚本解释器（当然也可以用现成的了）。
将脚本“粘”到程序的屁股上，并做一个标记。
程序运行的时候读取出脚本，并解释执行。

如果你想达到编译的级别就没这么容易了。

好的.谢谢了..怎么用脚本解释器在DELPHI中有这个工具吗??那有这方面的代码吗?

其实有个比较容易的方法。
参照大部分木马客户端的制作方法：
比如，先编译一个点击按钮之后弹出MessageBox的小程序。
用UltraEdit打开，查找MessageBox上显示的消息，记下偏移量。
然后在主程序中以二进制方式把小程序读入，替换刚才记下偏移量部分的消息。
再把刚才读入的数据保存到一个exe文件中，这样也可以达到生成exe的目的。

楼上在放屁

我希望你说话尊重一点，什么叫放屁。
没有尝试过我会回答？希望你以后说话的时候先用用脑子好不好？

Function ResourceToFile(Const ResType, ResName, FileName: PChar): Boolean; //释放资源到文件
Var
HResource, HGlobal, FHandle, FSize, WSize: LongWord;
FMemory: Pointer;
Begin
Result := False;
// 定位资源
HResource := FindResource(HInstance, ResName, ResType);
If (HResource = 0) Then Exit;
// 装入资源
HGlobal := LoadResource(HInstance, HResource);
If (HGlobal = 0) Then Exit;
// 锁定内存
FMemory := LockResource(HGlobal);
If (FMemory = Nil) Then Begin
FreeResource(HGlobal);
Exit;
End;
// 建立文件
FHandle := CreateFile(FileName, GENERIC_WRITE, 0, Nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
If (FHandle = INVALID_HANDLE_VALUE) Then Begin
UnlockResource(HGlobal);
FreeResource(HGlobal);
Exit;
End;
// 写入文件
FSize := SizeOfResource(HInstance, HResource);
WriteFile(FHandle, FMemory^, FSize, WSize, Nil);
If (FSize <> WSize) Then Begin
UnlockResource(HGlobal);
FreeResource(HGlobal);
Exit;
End;
// 关闭保存
SetEndofFile(FHandle);
CloseHandle(FHandle);
// 解锁释放
UnlockResource(HGlobal);
FreeResource(HGlobal);
Result := True;
End;


这个还看不懂？那我也没办法了，因为我也不太懂你在问什么

我就是问...

你听说过一些传奇和QQ的木马吗??就是好像那种木马一样..设置好邮箱和密码.生成了一个自己的木马就是这个意思..我主要问的是生成EXE的部分代码....

直接使用Delphi的编译器.当然,如果不是用BPL,那么必须附带必需的DCU文件.

呵呵，关注一下这个问题，不知道有没有其它更高的方法。

生成了一个自己的木马?其实就是COPY（文件复制）啊，高明一点的就是我上面给的代码，把资源文件放到程序里啊。
资源文件放到程序里？这个不知道的话，就去用百度搜索一下吧……
百度不会用？搜索不到？那我就不知道你该怎么办了，等吧……