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

C

casso

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-13

• #1

我在程序中想实现如果有人点了一个Email地址就能使用Email
（无论何种形式都可）或者点击地址可以浏览主页（不是写浏览器，
是一般的about中的)

 

M

MicroStar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-13

• #2

将详细的想法贴上好吗!

 

L

littlegrass

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-13

• #3

用下面语句就行：
ShellExecute(handle, pchar('open'), pchar('mailto:'+EmailAddress), pchar(''), pchar(''), SW_SHOWNORMAL);

 

L

littlegrass

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-13

• #4

忘了告诉你打开浏览器的：
ShellExecute(handle, pchar('open'), pchar(HomePageAddress), pchar(''), pchar(''), SW_SHOWNORMAL);

 

D

dwwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-13

• #5

给你个非常酷的构件吧,看看它的Demo就知道了,关键是有源码的.
http://mirror.aarnet.edu.au/delphi/ftp/d20free/urllab14.zip
如果需要,可以mail给你.

 

P

pegasus

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-13

• #6

littlegrass的解法就足够简单了, 似乎不必要再用什么控件了,

 

D

dwwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-13

• #7

那个控件的原理肯定是这样,但功能很不错,
用一用就知道了.

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

 

L

liwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-13

• #8

鼠标指向上面的的时候,变成手的形状

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

似乎不麻烦?

 

L

littlegrass

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-13

• #9

非常感谢pegasus和liwei两位老兄！（好象我是提问者 *_^）

 

D

dwwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-13

• #10

这好像有点抬杠了，我只是说"比如"，
实际上这个控件还有很多功能，不用一下怎么知道呢？

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

 

L

littlegrass

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-14

• #11

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

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

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

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

好了，大家继续干活吧！多谢棒场！

 

D

dwwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-14

• #12

对不起，我又忘了在帖子上写name了，（见：ESockError那片帖子）
我只是说“似乎不麻烦”这句话好像有点抬杠的意味。

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

顺便说一句，那个问题最终也没个明确答案，
可我跟pega好像各得了100分^_^

 

L

littlegrass

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-14

• #13

大家说清楚了就没事了！

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

casso，快给分吧！ *_^

 

D

dwwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-14

• #14

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

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

这也就是为什么我最愿意给别人介绍网址、控件
这类的东东，而很少愿意贴源码上来的原因吧。
说不定大家会因此认为我得分全不费力气呢！
这是各人的理念不同所至吧！

 

L

littlegrass

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-14

• #15

dwwang，我没有误解。
“平分”的话只是因你的“好像各得了100分”而来的一句戏言！

再说平分也没有什么呀？关键看提问者对哪些人的答案满意。
在你回答后我可是一点异议都没提哟！

 

D

dwwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-14

• #16

其实我知道是这么回事 ^_^
只不过是想借题发挥，说说我对解答问题的一些看法。
不好意思正好碰上了这个问题，一口气来了一大段，
恐怕让人有点摸不着头脑吧

赶快给小草赔个笑脸 ^_^，不过，以后还是应该多争论哟！

 

L

littlegrass

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-14

• #17

你...你...你...... :-(
罢罢罢，看在你对论坛立过汗马功劳的份上，又赔笑脸，
这次就算了！

 

C

casso

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-15

• #18

接受littlegrass的答案，我喜欢简洁的。
因为不是开发商用软件。呵呵。

 

跑

跑的快

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-06

• #19

用用这个:
SHELLexecute(handle,nil,pchar('http://163.net'),nil,nil,sw_shownormal);
当然pchar()的内容可以按情况而定.