請教(35分)

  • 主题发起人 主题发起人 wanjuan
  • 开始时间 开始时间
W

wanjuan

Unregistered / Unconfirmed
GUEST, unregistred user!
請問如下語句能不能實現超級鏈?如若不能又該怎樣?<br>shellexecute(handle,'open',pchar('http://www.21cn.com'),nil,nil,sw_show);
 
可以吧,标准得action也有能打开超链接得
 
to:ugvanxk<br>可是我卻沒打開
 
我这里没问题,可打开
 
那請問還有沒有其它方法?
 
procedure OpenLink(var LinkString: String);<br>begin<br>&nbsp; ShellExecute(Application.Handle,nil,PChar(LinkString),nil,nil,SW_SHOWMAXIMIZED);<br>end;<br><br>然後調用 OpenLink('http://www.21cn.com'); 就可以實現你的要求了.
 
上面代码是可以的。<br><br>或者<br>winexec('D:/Program Files/Internet Explorer/IEXPLORE.EXE http://www.21cn.com',SW_SHOW);//完整路径
 
还可以用Delphi封装了的ShellExecut,具体忘了,呵呵<br>看看Demo,
 
多人接受答案了。
 
后退
顶部