如何在点击某人控件后,进入网页或发送邮件?(200分)

Z

zlwnet

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在点击某人控件后,进入网页或发送邮件?
 
shellexecute(handle,PChar('OPEN'),Pchar('www.knifepj@21.com'),PChar(''),PC<br>har(''), SW_SHOWNORMAL);
 
接受答案了.
 
在edit1.text上面可填些<br>shellexecute(handle,"open","edit1.text", nil,nil,sw_show);
 
uses shellapi;<br><br>&nbsp; shellexecute(self.Handle ,<br>&nbsp; 'open','www.delphibbs.com','','',sw_show);<br>
 
顶部