Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос по ShellExecute :) или WebBrowser. [D6, Win95/98]


Serhij H. ©   (2003-02-19 18:35:00) 

Здравствуйте, Мастера!
Для просмотра URL"а я вызываю
ShellExecute(GetDesktopWindow,"open",
PCharURLstring),nil,nil,SW_SHOWNORMAL).
Но если мне надо последовательно открыть 2 и более сайта, то все они вызываются в одном и том же окне браузера :(, и, соответственно, виден остается только один, последний.
Как можно решить эту проблему??? Спасибо.


AGGRESSOR   (2003-02-20 10:38:00) [1]


> Anatoly Podgoretsky © (19.02.03 20:03)

Отвечу. Да, действительно, пример не совсем удачный, НО: если человек спрашивает о чем-то, я стараюсь отвечать так, чтобы он понял, что я имею в виду. Это, конечно, здорово, что Романов Р.В. © дал ему такой хороший код, даже не требующий доработки. Но я думаю, что этот человек не знает, что такое позднее связывание и OLE-технологии, он не посмотрит в справку по этой теме, а просто воспользуется кодом. Поэтому, возможно, следующий его вопрос будет "Как запустить Word?". Вот я и дал ответ, который работает, но не шибко хорошо, и надо бы порыться в хелпе, чтобы довести его до вида (см. выше). Пытання е? :)


Anatoly Podgoretsky   (2003-02-19 20:03:00) [2]

AGGRESSOR (19.02.03 18:52)
Не хорошее применение ShellExecute, он предназначен для запуска асоциированным с шелом програм, для обычного запуска надо использовать CreateProcess, но даже и в этом случае не является хорошим тоном запускать какой то чужой браузер, кроме заранее оговоренных случаев.


Романов Р.В.   (2003-02-19 19:57:00) [3]

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
Wb: OleVariant;
begin
Wb := CreateOleObject("InternetExplorer.Application");
Wb.Visible := True;
Wb.Navigate(" http://delphi.mastak.ru/forum/main.html",EmptyParam,EmptyParam,EmptyParam,EmptyParam);
end;


AGGRESSOR   (2003-02-19 18:52:00) [4]

Можно так:
ShellExecute ("C:\Program Files\Internet Explorer\IEXPLORE.EXE" <YourURL>)
т.е. запустить обозреватель с параметром в виде нужной URL.


Наверх

Титульная страница Поиск, карта сайта Написать письмо