如何在程序中实现点击Email地址就可以使用Email服务(30分)

  • 主题发起人 主题发起人 casso
  • 开始时间 开始时间
C

casso

Unregistered / Unconfirmed
GUEST, unregistred user!
我在程序中想实现如果有人点了一个Email地址就能使用Email
（无论何种形式都可）或者点击地址可以浏览主页（不是写浏览器，
是一般的about中的)
 
将详细的想法贴上好吗!
 
用下面语句就行：
ShellExecute(handle, pchar('open'), pchar('mailto:'+EmailAddress), pchar(''), pchar(''), SW_SHOWNORMAL);
 
忘了告诉你打开浏览器的：
ShellExecute(handle, pchar('open'), pchar(HomePageAddress), pchar(''), pchar(''), SW_SHOWNORMAL);
 
给你个非常酷的构件吧,看看它的Demo就知道了,关键是有源码的.
http://mirror.aarnet.edu.au/delphi/ftp/d20free/urllab14.zip
如果需要,可以mail给你.
 
littlegrass的解法就足够简单了, 似乎不必要再用什么控件了, :)
 
那个控件的原理肯定是这样,但功能很不错,
用一用就知道了.

比如:鼠标指向上面的的时候,变成手的形状,
如果自己写,总得用OnMouseMove之类的吧?
要是多个,岂不就麻烦了? ^_^
 
鼠标指向上面的的时候,变成手的形状

只要将LABEL.CURSOR:=CR_HAND;即可.

似乎不麻烦? :)
 
非常感谢pegasus和liwei两位老兄！（好象我是提问者 *_^）
 
这好像有点抬杠了，我只是说"比如"，
实际上这个控件还有很多功能，不用一下怎么知道呢？

我只是关心一个问题的最佳解决方案而已，如果这个
倥件没有源码，我是不会在这里推荐的。
 

dwwang大侠，怎么生气了？！快别这样！ :)

首先，把我的那句话解释一下。之所以感谢两位大侠，原因很简单：因为他
们比较倾向我的答案（这里再次表示感谢），并没有“抬扛”的意思，真的！

找到“问题的最佳解决方案”是我们大家来这里的共同心愿。但对于那些三
言两语就能解决问题的答案，又何必拿出“带源码的控件”，把简单的问题
搞复杂了呢！

另外，如果你有什么好东东或心得想让大家一同分享，何不建议斑竹开一个
“心得共享”区不更好吗！

好了，大家继续干活吧！多谢棒场！
 
对不起，我又忘了在帖子上写name了，（见：ESockError那片帖子）
我只是说“似乎不麻烦”这句话好像有点抬杠的意味。

小草同志不必太在意，生气是不可能的 :-)
想当初我跟pega在晓刚的那个问题上也争论半天，
但这只会让大家对问题有更深刻的认识，
绝对不会伤感情的，呵呵！

顺便说一句，那个问题最终也没个明确答案，
可我跟pega好像各得了100分^_^
 
大家说清楚了就没事了！ :)

原来你又想和我平分这..分！ ^_^

casso，快给分吧！ *_^
 
小草又误解了，我可不是想平分这..分数，
看来我还得多解释一点，索性这一次就说清楚了吧！

我不知道在座诸位都从事什么工作，反正我是
搞软件开发的，而且软件系统比较庞大，本人
的职位也还算可以。因此最重视的就是“解决方案”。
（对不起，不是有意上纲上线）也就是说，
我认为讨论一个问题，归根结底是要找到解决问题
的实际办法。就比如说这个问题，如果casso问
"谁能告诉我...是怎么实现的"，我还会给他一个
'带源码的控件'吗？但他如果想要在自己程序里实现
这个功能，显然就不一样了。而且这个控件可以实现
也许他都没都想到的功能，当然对程序有帮助。

这也就是为什么我最愿意给别人介绍网址、控件
这类的东东，而很少愿意贴源码上来的原因吧。
说不定大家会因此认为我得分全不费力气呢！ :(
这是各人的理念不同所至吧！
 
dwwang，我没有误解。
“平分”的话只是因你的“好像各得了100分”而来的一句戏言！:)

再说平分也没有什么呀？关键看提问者对哪些人的答案满意。
在你回答后我可是一点异议都没提哟！
 
其实我知道是这么回事 ^_^
只不过是想借题发挥，说说我对解答问题的一些看法。
不好意思正好碰上了这个问题，一口气来了一大段，
恐怕让人有点摸不着头脑吧 :)

赶快给小草赔个笑脸 ^_^，不过，以后还是应该多争论哟！
 
你...你...你...... :-(
罢罢罢，看在你对论坛立过汗马功劳的份上，又赔笑脸，
这次就算了！ :)

 
接受littlegrass的答案，我喜欢简洁的。
因为不是开发商用软件。呵呵。
 
用用这个:
SHELLexecute(handle,nil,pchar('http://163.net'),nil,nil,sw_shownormal);
当然pchar()的内容可以按情况而定.
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
I
如何发到某个email地址中去(1分)
回复
1
查看
137
816
8
猪
使用DDE可以实现向网页表单中输入数据吗(50分)
回复
0
查看
125
猪头
猪
S
怎样通过点击email,打开email写信程序(50分)
回复
4
查看
97
StevenLee
S
M
局域网中有4个公的IP地址， 为什么在实现局域网INTERNET接入时，只有两个IP地址可用？(100分)
回复
13
查看
327
mycwcgr_bak
M
后退
顶部