Beranda > Delphi > OLE with the internet explorer

OLE with the internet explorer

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('http://www.infojet.cz/delphi/tips/'); 
end; 
Iklan
Kategori:Delphi
  1. September 23, 2016 pukul 2:58 am

    What i do not realize is in fact how you’re no longer really a lot more well-preferred than you might be now.
    You’re so intelligent. You realize thus significantly in terms of
    this matter, made me personally imagine it from numerous various angles.
    Its like men and women aren’t involved unless
    it is one thing to accomplish with Lady gaga! Your personal stuffs outstanding.
    At all times deal with it up!

  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: