Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > IExplor

Автор: Вася 9.2.2003, 20:17

Привет!
Я делаю :

Код


ShellExecute(wnd,'open','IExplore','www.somsite.com','',sw_shownormal);

Как узнать, что страница загружена?
Спасибо!

Автор: stab 10.2.2003, 02:04

поройся в IShellWindows, там можно получить интерфейс IWebBrowser2:

procedure TForm1.Button1Click(Sender: TObject);
var
shw: TShellWindows;
i: Integer;
doc: IHTMLDocument2;
begin
shw := TShellWindows.Create(Self);
lst.Items.Clear;
for i := 0 to shw.Count - 1 do
try
doc := (shw.Item(i) as IWebBrowser2).document as IHTMLDocument2;
lst.Items.Add.Caption := doc.url;
except
end;
shw.Free;
end;

думаю уже все понятно

Автор: Fantasist 11.2.2003, 01:57

А лучше сразу брать компонент TWebBrowser (или TInternetExplorer, если в вашей версии он есть) и работать через него.