|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/3/8 12:45:51 |
标题: |
|
加入我的收藏 |
楼主: |
procedure TForm1.N9Click(Sender: TObject); var b:pchar; c,a:string; begin a:='jsnjsmc@163.com'; c:=('MailTo:'+a); b:=pchar(c);} shellexecute(handle,',b,',',sw_show); end;
和
procedure TForm1.N9Click(Sender: TObject); begin shellexecute(handle,','MailTo:jsnjsmc@163.com',',',sw_show); end;
是不是一样的呀。
谢谢!!
----------------------------------------------
- |
|