图片压缩与发送？（在线求解）(100分)

我有一个文本文件，如：kk.txt；还有几幅图片，比如是.jpg的图片；现在我想将文本文件
与图片打包以附件的形式发到目的邮箱？
1、如何打包？
2、如果用ShellExecute该怎么表示附件呢？

可以用 MakeCab 来做，我专门用过，不错的。

TO jsxjd:
可否详细介绍？

你等着，我把程序找出来！

先建立一个压缩信息文件，然后使用Makecab进行压缩，
将MakeCab.exe 拷贝到程序运行目录中，
只要安装了VB、VF或IEAK，在系统中肯定有这个文件。
以下是具体的程序：
将d:/temp/aa.xml、d:/temp/aa.xsl这两个文件压缩到
d:/Temp.cab 中。

procedure TForm1.Button4Click(Sender: TObject);
var
sL:Tstrings;
rt:integer;
begin
sL:=TStringList.create;
sL.Add('.Set GenerateInf=On');
sL.Add('.Set Cabinet=on');
sL.Add('.Set Compress=on');
sL.Add('.Set CabinetNameTemplate=d:/Temp.cab');
sL.Add('.Set DestinationDir=');
sL.Add('.set DiskDirectoryTemplate=');
sL.Add('.Set MaxDiskFileCount=10000');
sL.Add('.Set MaxDiskSize=0');
sL.Add('d:/temp/aa.xml');
sL.Add('d:/temp/aa.xsl');

sL.SaveToFile('CabInfo.txt');
sL.free;

rt:=ShellExecute(GetDesktopWindow(),'open','makecab.exe',
'/F CabInfo.txt',pchar(GetCurrentDir()),0);
if rt>32 then
showmessage('Ok')
else
showmessage('Fail');
end;

这样回答可以吗？

TO jsxjd:
压缩后，我想将这个文件直接用来发送邮件，让程序自动打开OUTLOOK，并且这个文件出
现在OUTLOOK的附件栏上，我是过用MAILTO来发送，家&ACCTH=“附件名”（网上查的语法，
不用怀疑）；就是放不上去；怎么回事？

ACCTH 对吗？
attach ?

看看。

TO jsxjd:
我试过你的那个压缩的程序，跟你同样的目录或系统默认的目录可以；但是在我自己设
的目录下，程序时有执行，但压缩包没有生成，’CabInfo.txt‘有生成？

MakeCab.exe 拷贝到程序执行目录没有。要压缩的文件是不是都存在，
要存放压缩文件的目录是不是也存在。

接受答案!
to jsxjd,多谢你的解答！！！！！！