重点在于怎样把几个文件合并成一个exe文件,双击这个exe文件能把这些文件拷贝到指定的目录。
比如有四个文件:file1,file2,file3,file4,什么方法能使这四个文件合并成一个setup.exe文件;当运行此setup.exe时,能把分解出这四个文件,并把file1,file2拷贝到c:\folder1\下,而file3,file4拷贝到c:\folder2\下。
比如有四个文件:file1,file2,file3,file4,什么方法能使这四个文件合并成一个setup.exe文件;当运行此setup.exe时,能把分解出这四个文件,并把file1,file2拷贝到c:\folder1\下,而file3,file4拷贝到c:\folder2\下。
如果不想这么麻烦,就自己用程序创建目录,拷贝:
mkdir(...);
fopen(...);
fwrite(...);
...
其实如果你要求不高,还有更简单的办法(基本就是个 winzip/winrar 的使用技巧问题,不涉及任何编程):
在你的机器上:
md c:\folder1\
copy file1,file2 c:\folder1
md c:\folder2\
copy file3,file4 c:\folder2
用 winzip 或者 winrar 将这两个目录压缩一个 .zip 或 .rar 文件,路径选项为“绝对路径”
这样别人收到你的压缩文件,解压缩,就会自动生成相应的目录,并把文件放在目录里
将其他文件追加到exe文件
制作两个程序:一个主程序,一个辅程序。主程序的作用是往辅程序的尾部添加资源,
即.tex、.bmp等文件。辅程序则负责对这些资源进行处理,如显示、编辑等。以下是
它们的例程。
主程序:
procedure TForm1.FormCreate(Sender: TObject);
var
Target,str:TFilestream;
Size:Integer;
Begin
try
str:=TFileStream.Create('My.bmp',fmOpenRead or fmShareExclusive);
Target := TFilestream.create('d:\Project1.exe', fmOpenWrite or fmShareExclusive);
// d:\Project1.exe 为辅程序
Target.Seek(0,soFromEnd);
//往辅程序的尾部添加资源
Target.CopyFrom(str,0);
Size:=str.Size + Sizeof(Size);
//计算资源大小,并写入辅程序尾部
Target.WriteBuffer(Size,Sizeof(Size));
finally
Target.Free;
str.Free;
end;
end;辅程序:
procedure TForm1.FormCreate(Sender: TObject);
var
Source:TFilestream;
str:TMemoryStream;
Size:Integer;
Begin
try
str:=TMemoryStream.Create;
Source := TFilestream.create(Application.ExeName, fmOpenRead or fmShareDenyNone);
Source.Seek(-Sizeof(Size),soFromEnd);
//读出资源大小
Source.ReadBuffer(Size,SizeOf(Size));
//定位到资源的开始位置
Source.Seek(-Size,soFromEnd);
//取出资源并存到文件中
str.CopyFrom(Source,Size - SizeOf(Size));
str.SaveToFile('Temp.bmp');
//显示
Image1.LoadFromFile('Temp.bmp');
Finally
str.Free;
Source.Free;
end;
end;
当然,上面的程序只是基础,但加以扩充。你就可以实现往Project1.exe中加入任意复杂的
数据,方法如下(其实也是压缩程序的原理之一):
首先你得定义两个记录 :
TFileRec = record
name : shortstring;
start : longint;
Size:Longint;
end;
TArchiveRec = record
FileCount:longint;
end;
TFileRec 用于记录每个文件的信息。(以上两个记录的具体内容可自定,但必须能确定
记录的大小,也即不能在记录中有string类型等不能确定大小的字段),
TArchiveRec 用于记录插入文件的总个数。
往Project1.exe中添加资源时,可依照以上的方法进行,即把资源的数据一个一个地往
Project1.exe的尾部添加.但在加入一个资源之前,你必须先得到当前的位置(可通过
Target.Size或先移到Target的尾部,再通过Position属性得到),然后写入该文件对应
的TFileRec记录的Start字段,用于记录该资源在Project1.exe中的起始位置,在加入全部
资源以后,你再设置TArchiveRec记录的FileCount字段,然后按加入资源的顺序往Project1.exe
尾部写入对应的TFileRec,最后再写入TArchiveRec记录。从而完成了添加资源操作。
在Project1.exe中读资源时,要先在Project1.exe的尾部读出TArchiveRec记录以得到资源的
个数,然后再根据资源的个数依次读出TFileRec记录,从而得到每个文件的Start等信息,
这样就可以正确地读出每个资源的数据了。之所以可以这样读,是因为TArchiveRec和TFileRec记录
的大小是可以确定的(通过Sizeof函数),所以你可以正确定位。
其实这种程序的难点就是如何定位,只要实现了正确定位,那一切就OK了。有一点错:
procedure TForm1.Button1Click(Sender: TObject);
var
Source:TFilestream;
str:TMemoryStream;
Size:Integer;
begin
try
str:=TMemoryStream.Create;
Source := TFilestream.create(Application.ExeName, fmOpenRead or fmShareDenyNone);
Source.Seek(-Sizeof(Size),soFromEnd);
//读出资源大小
Source.ReadBuffer(Size,SizeOf(Size));
//定位到资源的开始位置
Source.Seek(-Size,soFromEnd);
//取出资源并存到文件中
<font color=red> str.CopyFrom(Source,Size - SizeOf(Size)); </font>
<font color=blue> //上面这一句报错,说是'Stream read error'
//我执行的是被写入了图片的那个执行程序,对吗? </font>str.SaveToFile('Temp.bmp');
//显示
Image1.Picture.LoadFromFile('Temp.bmp');
Finally
str.Free;
Source.Free;
end;
end;
[email protected]