关于外部程序调用（jccatch.dll） ( 积分: 100 )

Sub AddLink(Url,Info) <br> On Error Resume Next<br> set JetCarCatch=CreateObject(&quot;JetCar.Netscape&quot<br> if err&lt;&gt;0 then<br> MsgBox(&quot;FlashGet not properly installed!&quot;+ vbCrLf+&quot;Please install FlashGet again&quot<br> else<br> call JetCarCatch.AddUrl(Url, Info, external.menuArguments.document.Url)<br> &nbsp; &nbsp; &nbsp; &nbsp;end if<br>end sub<br>上面是Flashget中的调用程序。我想用delphi来实现。不知如何做。请大家给个想法。

Sub AddLink(Url,Info) <br> On Error Resume Next<br> set JetCarCatch=CreateObject(&quot;JetCar.Netscape&quot<br> if err&lt;&gt;0 then<br> MsgBox(&quot;FlashGet not properly installed!&quot;+ vbCrLf+&quot;Please install FlashGet again&quot<br> else<br> call JetCarCatch.AddUrl(Url, Info, external.menuArguments.document.Url)<br> &nbsp; &nbsp; &nbsp; &nbsp;end if<br>end sub<br>上面是Flashget中的调用程序。我想用delphi来实现。不知如何做。请大家给个想法。