Главная страницаОбратная связьКарта сайта

OLE с Internet Explorer

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses comobj;


 procedure OpenIE(aURL: string);
 var
   IE:        Variant;
   WinHanlde: HWnd;
 begin
   if (VarIsEmpty(IE)) then
   begin
     IE         := CreateOleObject("InternetExplorer.Application");
     IE.Visible := True;
     IE.Navigate(aURL);
   end
   else
   begin
     WinHanlde := FindWindow("IEFrame", nil);
     if (0 <> WinHanlde) then
     begin
       IE.Navigate(aURL);
       SetForegroundWindow(WinHanlde);
     end
     else
       ShowMessage("Can""t open IE !");
   end;
 end;


 procedure TForm1.Button1Click(Sender: TObject);
 begin
   OpenIE("?wurl=www.swissdelphicenter.ch");
 end;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "OLE с Internet Explorer", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info