Запуск Копии Webbrowser С Подстановкой Адреса

Тема в разделе "Delphi - Сети", создана пользователем s2004, 1 дек 2011.

  1. s2004

    s2004 New Member

    Регистрация:
    1 дек 2011
    Сообщения:
    1
    Симпатии:
    0
    Вот вопрос возник embeddedwb оnкрываем ссылку открывается новое окно и например, если я закрою первичное окно то закроется и дочернее окно, а возможен вариант, что бы при закрытие родительского окна не происходило закрытие и дочернего. Судя по всему iexplorer запускает вторую копию программы и туда подставляет урл. Как мне сделать, что бы при кликание на ссылку запуск проходил именно второй копии проги, плюс в строку адреса подставлялся урл ссылки?
    Код срабатывающий при открытии ссылки внизу.


    Код (Delphi):
    procedure TForm1.EmbeddedWB1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
    var Cancel: WordBool);
    var
    NewWindow:TForm1;
    begin
    cancel := false; // новое значение
    NewWindow := TForm1.Create(parent);
    try

    finally
    SetWindowLong(NewWindow.Handle, GWL_EXSTYLE, GetWindowLong(NewWindow.Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
    NewWindow.Show;
    ppDisp:=NewWindow.EmbeddedWB1.ControlInterface;

    end;
    не получается главное, что то толком не нашёл место где можно заменить открытие дефаульт браузера на свой... Второй параметр Open или close или nil, но я так понял относится только по умолчанию браузеру, а как изменить на свой да с подстановкой ссылки для открытия одним словом код наверху и кучу за это время перебрал. Свой браузер не открывается по сылке, а только iexplorer.

    Код (Delphi):
    ShellExecute(Handle,'open',PChar(d),PChar(newwindow.EmbeddedWB1.DefaultDispatch),nil, SW_SHOWNORMAL);
     
Загрузка...

Поделиться этой страницей