TSHELLWINDOWOBSERVER

This component was born out of frustration, since I wasn't able to connect to an existing instance of Internet Explorer AND catch the events it fires. There must be a better way to do it, let me know if you have figured it out. I use timers.

EXCEPTIONS

EIdNotFound = class(Exception);

TSHELLMESSAGE

TSHELLMESSAGE = (smClose,smMaximize,smMinimize,smRestore);

TSHELLWINDOW

  TShellWindow = class
    Num : integer;
    handle : HWND;
    LocationURL : String;
    LocationName : String;
    IEHandle : IWebBrowser2;
  end;

PROCEDURE TYPES


TOnAddedEntry = procedure (Sender : TObject; ShellWindow : TShellWindow; Str : String) of object;

Fired whenever an existing instance of Internet Explorer moves to another URL, or when a new instance is opened. Str is in the form
ID:URL:TITLE:TIME, and it is added at the end of the LoggedChanges Property, and the delimiter, in this example :, is set through the Delimiter Property

TOnChangedNumber = procedure (Sender : TObject; Number : Integer) of object; 
Fired whenever an instance of Internet Explorer is closed or opened. Number is the current number of opened instances

TSHELLWINDOWOBSERVER

Properties

LoggingDirs : Boolean
Whether local surfing is logged
Delimiter : Char
Active : boolean
LoggedChanges (runtime) : TStrings
contains a log about all events of Internet Explorer since the component was started
WindowList : TList (runtime) Contains a list of active TShellWindow(s)
Count : Integer Number of active instance of explorer
SendAMessage : TShellMessage = Allow you to choose the type of message you send at the choosen instance

Methods

function GetShellWindowOnId(Id : integer) : TShellWindow;

function SendMessageToWindowByNumber(Num: Integer): LRESULT;

Allow you to send a choosen message at an explorer's instance by th Num parameter. Return the result of sending. For more information see Help for the return of SendMessage function API.

Events


OnAddedEntry : TOnAddedEntry;

OnChangedNumber : TOnChangedNumber;

Created by Diego Amicabile
diegoami@yahoo.it

Updated by Michel Hibon
mhibon@ifrance.com