刀妃

得于斯者毁于斯

博客园 首页 新随笔 联系 订阅 管理
  18 随笔 :: 3 文章 :: 0 评论 :: 4327 阅读

procedure TForm1.GotoURL(sURL:String);
begin
    with dde do
    begin
        ServiceApplication:='C:\Program Files\Internet Explorer\IEXPLORE.EXE';
        SetLink('IE','打开WWW');
        RequestData(sURL+',,0XFFFFFFFF,0X3,,,') ;
        CloseLink;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    GotoURL('http://localhost//index.htm');
end;

end.

posted on   刀妃  阅读(337)  评论(0编辑  收藏  举报
点击右上角即可分享
微信分享提示