标题:delphi中操作注册表出了一点点问题,但事情挺严重的
只看楼主
eopenxie
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-7-2
 问题点数:0 回复次数:1 
delphi中操作注册表出了一点点问题,但事情挺严重的

用一个按据调用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被清空了。跟本没读到跟径。
为什么会这样?达达们快来帮忙啊

搜索更多相关主题的帖子: delphi 注册表 reg 邮件 shell 
2007-07-21 21:14
wzh706096
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-5-6
得分:0 
把这句Edit1.Text := reg.ReadString('默认');
改成这样Edit1.Text := reg.ReadString('');
2007-07-22 10:30



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-157141-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.044167 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved