var
Str:String;
Begin
Str:='mailto:'+Edit2.text+'?subject='+Edit3.text+'&Body='+Memo1.Lines.Text;
ShellExecute(handle, 'open', 'PChar(Str)', nil, nil,SW_SHOWNORMAL);
End;
可以运行通过,但是不可以调用outlook,我估计是PChar的原因,就是不知道怎么解决,哪个高手帮我解决下....小弟弟急
Str:String;
Begin
Str:='mailto:'+Edit2.text+'?subject='+Edit3.text+'&Body='+Memo1.Lines.Text;
ShellExecute(handle, 'open', 'PChar(Str)', nil, nil,SW_SHOWNORMAL);
End;
可以运行通过,但是不可以调用outlook,我估计是PChar的原因,就是不知道怎么解决,哪个高手帮我解决下....小弟弟急
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货