我想把E-mail地址加到一个按钮里，这段代码怎么写啊！(100分)

W

wzren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-31

• #1

我想把E-mail地址加到一个按钮里，这段代码怎么写啊！

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-31

• #2

Button.caption:='sunhuiNO1@hotmail.com'

 

G

gyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-31

• #3

uses<br>&nbsp; ShellAIP;<br>shellexecute(self.handle,'open','mailto:delphi_gy@163.com',nil,nil,SW_SHOWNORMAL )

 

W

wzren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-31

• #4

uses<br>&nbsp;ShellAIP;<br>shellexecute(self.handle,'open','mailto:delphi_gy@163.com',nil,nil,SW_SHOWNORMAL ) &nbsp;<br><br>不行啊，加进去没用啊，麻烦详细一点啊

 

来

来如风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-31

• #5

就是前面引用shellapi<br>然后按钮点击事件里写<br>shellexecute(self.handle,'open','mailto:delphi_gy@163.com',nil,nil,SW_SHOWNORMAL ) &nbsp;<br><br>

 

Z

zhoufujin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-31

• #6

Button.caption:='sunhuiNO1@hotmail.com' &nbsp;<br>uses shellapi;<br>然后按钮点击事件里写<br>shellexecute(self.handle,'open','mailto:delphi_gy@163.com',nil,nil,SW_SHOWNORMAL ) &nbsp;<br><br>&nbsp;<br><br>

 

Q

quejian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-01

• #7

你的意图很让人费解，如果是点击按钮就发送eamil,那楼上的和下面的代码都是可以的，如<br>果不是的话，就不知道你在说什么了<br>uses<br>&nbsp; ShellAIP;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>&nbsp; shellexecute(self.handle,'open','mailto:quejian@163.com',nil,nil,SW_SHOWNORMAL )<br>end;<br>

 

W

wzren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-01

• #8

多人接受答案了。