利用ShellAPI: uses ShellAPI; ShellExecute(handle,'open',pchar('mailto:'+dbedit11.Text),nil,nil,SW_ShowNormal);