用一个按据调用foxmail或者是outlook，仅仅是运行程序，而不是用shellapi来发邮件。思路是：从注册表中取默认的邮件程序，得到路径，然后用shellexecute进行，但在注册表操作中遇到了麻烦
代码如下：
var
reg : TRegistry;
begin
reg := Tregistry.Create ;
try
reg.RootKey := HKEY_CLASSES_ROOT ;
reg.OpenKey ('\mailto\shell\open\command',true);
Edit1.Text := reg.ReadString('默认');
except
edit1.Text := '未读到'
end;
Shellexecute(handle,nil,pchar(Edit1.text),nil,nil,sw_shownormal);
end;

结果是edit1.txt被清空了。跟本没读到跟径。
为什么会这样？达达们快来帮忙啊