各位大侠，怎么调用shellexecute?

Question

sos!!

Answer 1

uses ShellAPI;ShellExecute(Handle,nil,'mailto:[email protected]',nil,nil,1);

Answer 2

其中的‘mailto:********’
可以换成‘http://*******’
‘ftp://*****'等等

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var em_subject,em_body,em_mail,em_add:string;
begin
    em_subject := 'fuck you too';
    em_body := 'shit';
    em_add:='[email protected]';
    em_mail := 'mailto:'+em_add+'?subject=' +em_subject + '&body=' + em_body ;
    ShellExecute(Handle,'open',PChar(em_mail), nil, nil, SW_SHOWNORMAL);
end;

Answer 4

xiaoyan21(明月心):你是成心的吗？这实在是太不文明了吧？