Слежение за открытием Internet Explorer

[artemavd]

Добрый день! Вообщем, ситуация такая. Результатом отработки некой сторонней программы является запуск в отдельных окнах Internet Explorer (IE), в которых отображается некий текст. Мне нужно как-то отслеживать эти запуски, загружать содержимое открываемой странички в IE и грузить его в RichEdit, а затем закрывать окно IE, из которого был взят исходный текст странички. Подскажите как это можно реализовать и в какую, чем, сторону копать? Заранее спасибо за ответы по сабжу.

[fate]

в таймере проверяй список процессов, если появился iexplorer.exe значит запустился IE, потом из адресной строки вытаскиваешь url и загружаешь содержимое тем же IdHTTP1.Get()
ну с закрытием IE думаю трудности не будет

[artemavd]

Если б так просто было. А если пользователь откроет обычную страничку, чтобы посмотреть, например, информацию на внутреннем сайте организации? Тогда что? Мне не надо грузить ее содержимое. Если есть у кого пример такого слежения, то подкиньте пожалуйста, буду очень признателен.

[fate]

ну тогда проверяй дополнительно по заголовку окна.
Заголовок окна = тексту в теге title
если открыта не твоя страничка, выходишь из процедуры

[artemavd]

Можешь помочь примером для начала? Я с инди не работал раньше.

[fate]

чуть позже

а ты знаешь какой url будет открываться? нужно его вытаскивать из IE?

вот на примере яндекса

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,Tlhelp32, StdCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, ComCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Edit1: TEdit;
    RichEdit1: TRichEdit;
    IdHTTP1: TIdHTTP;
    procedure Timer1Timer(Sender: TObject);
    function ProcExists(const ProcName:string):boolean;
    function findNex(hd: hwnd; Classname: string): hwnd;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function TForm1.findNex(hd: hwnd; Classname: string): hwnd;
var tmp:hwnd; str:array[0..255]of char;
begin
result:=0;
fillchar(str,sizeof(str),#0);
tmp:=GetWindow(hd, gw_child);
while tmp <> 0 do begin
GetClassName(tmp,str,sizeof(str));
if str=Classname then begin result:=tmp; exit; end;
  result:=findNex(tmp,Classname);
if result<>0 then break;

tmp:=GetWindow(tmp, GW_HWNDNEXT);
end;

end;

function TForm1.ProcExists(const ProcName: string): boolean;
const
  PROCESS_TERMINATE=$0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  result := false;
  FSnapshotHandle := CreateToolhelp32Snapshot
  (TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,
  FProcessEntry32);

  while integer(ContinueLoop) <> 0 do
  begin
  //memo1.Lines.Add(FProcessEntry32.szExeFile);
    if UpperCase(FProcessEntry32.szExeFile)=UpperCase(ProcName) then begin
     result:=true;
     break;
     end;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;

  CloseHandle(FSnapshotHandle);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var hw,subhw:HWND;
str:array[0..255]of char;
begin
if ProcExists('iexplore.exe') then begin   //если найден процесс
 hw:=FindWindow('IEFrame',nil);
 if hw<>0 then
  subhw:=findNex(hw,'Edit');  //находим поле ввода адресной строки
     if subhw<>0 then begin
      ZeroMemory(@str,sizeof(str));
       SendMessage(subhw,WM_GETTEXT,sizeof(str),Lparam(@str[0]));
      edit1.Text:=str;
       if pos('yandex',str)>0 then begin //если юзер открыл яндекс
        RichEdit1.Text:=IdHTTP1.Get(str);
        SendMessage(hw,wm_Close,0,0);
        end;
     end;  //if subhw<>0 then
end; //if

end;

end.