Category: ActiveX
Title: OLE with the internet explorer
Date added: 15.03.2006
Hits: 8578

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;

1. How to register a OCX File? (8402 Hits)

2. How to control mIRC with DDE? (5980 Hits)

3. How to send an e-mail through Outlook? (9686 Hits)

4. How to check if Word, Excel, Access, Outlook, Powerpoint is running? (10421 Hits)

5. How to check if the recycle bin is empty? (5414 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.