TO:postren(小虫)大侠，邮件问题的参数设置问题，我想了很久都没有做出来...郁闷中

Question

ShellExecute(Handle, 'open', 'mailto:[email protected]' +
'?cc=' +
'&bcc=' +
'&subject=请查收'+  
'&body=您好：%0A     文件里'+
'&file=c:\username.txt',
nil, nil, SW_NORMAL);参数都写死，除了增加附件加不上外，程序能运行，也能发送信件。我想实现
ShellExecute(Handle, 'open', 'mailto:[email protected]' +
'?cc=' +   //抄送给edit1.text中写好的电子邮件地址
'&bcc=' +
'&subject=请查收'+  
'&body=您好：%0A     文件里'+    //内容包含edit2.text中的内容
'&file=c:\username.txt',          //这个文件最好是存在当前应用程序中同目录的一个文件
nil, nil, SW_NORMAL); 这些参数都是Pchar类型，我定义了
var
a,b:Pchar;
......
b:='&subject=请查收' ;   //这句正确
a:=b;          //这句也正确
b:=b+a;      //到这句就不对了
要完成我的功能好难以实现啊
解决马上结，并再送100表示感谢

Answer 1

用 StrCpy 可以操作 pchar不过，根据你的程度，可能用 string 来操作
var
a,b, c: string;
p: pchar;...
  c := a + b;最后用
 p := pchar(c);
这样比较简单