按钮打开链接，按钮click代码

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

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

end.