中科新闻网2.0排量车船税多少钱:delphi中怎样打开一个邮件地址
来源：百度文库 编辑：中科新闻网 时间：2024/05/06 02:51:54
delphi中怎样打开一个邮件地址：
打开网址或程序可以，邮件地址为何不行
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(handle,nil,pchar('http://163.com'),nil,nil,SW_shownormal)
end; //可以
procedure TForm1.Label4Click(Sender: TObject);
begin
ShellExecute(handle,nil,pchar('maitto:abc@163.com'),nil,nil,SW_shownormal); //不行
winexec('maitto:i-4u@163.com',SW_SHOWNORMAL);也不行
end;
去了mailto也不行为什么
打开网址或程序可以，邮件地址为何不行
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(handle,nil,pchar('http://163.com'),nil,nil,SW_shownormal)
end; //可以
procedure TForm1.Label4Click(Sender: TObject);
begin
ShellExecute(handle,nil,pchar('maitto:abc@163.com'),nil,nil,SW_shownormal); //不行
winexec('maitto:i-4u@163.com',SW_SHOWNORMAL);也不行
end;
去了mailto也不行为什么
经过测试ShellExecute(handle,nil,pchar('maitto:abc@163.com'),nil,nil,SW_shownormal);这个语句语法上没有问题，‘mailto’也不能去掉；但是里面有个小的拼写错误：‘mailto’错写成‘maitto’，这样就不能打开默认关联的邮件程序，改回来就可以了；如果拼写改正后仍然不能打开邮件程序，可能是默认的关联程序丢失，建议做个简单网页，加入下面的代码<a href="mailto:abc@sina.com">abc@sina.com</a>，点击生成的链接，看看打开默认的关联是否正常；
winexec('maitto:i-4u@163.com',SW_SHOWNORMAL);这个函数功能相对简单，只能调用一个明确存在的可执行文件，不能同时打开一个文档；上面的写法不能实现发送默认邮件的功能。
是呀～我看了两次都觉得奇怪了，ShellExecute(handle,nil,pchar('maitto:abc@163.com'),nil,nil,SW_shownormal);
是正确的，还是楼上的说了我才看清楚，字打错了～Mailto错了一个字母～～哈哈～
去了mailto保存
然后运行.poject文件