Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Интернет и сети \ Браузер \ Как вызвать Internet Explorer из Delphi

Как вызвать Internet Explorer из Delphi

program iexplor;

uses
  Windows, OLEAuto;

procedure OpenInternetExplorer( sURL : string );
const
  csOLEObjName = 'InternetExplorer.Application';
var
  IE: Variant;
  WinHanlde: HWnd;
begin
  if VarIsEmpty(IE) then
  begin
    IE := CreateOleObject(csOLEObjName);
    IE.Visible := true;
    IE.Navigate(sURL);
  end
  else
  begin
    WinHanlde := FindWIndow('IEFrame', nil);
    if 0 <> WinHanlde then
    begin
      IE.Navigate(sURL);
      SetForegroundWindow(WinHanlde);
    end
    else
    begin
      // handle error ...
    end;
  end;
end;

begin
  OpenInternetExplorer('microsoft.com');

end.

Название: Как вызвать Internet Explorer из Delphi
Дата публикации: 2004-09-02 (3158 Прочтено)

 
 

 

Page generation 0.039 seconds