Подскажите, пожалуйста, какое условие нужно вставить в код на место //!!!!!!!!!!!!!!, для того чтобы определить у данного окна искомый ли заголовок (Например заголовок = Delphi Sources )
КОД:
[CODE ]
Var
ShellWindow: IShellWindows;
WB: IWebbrowser2;
spDisp: IDispatch;
IDoc1: IHTMLDocument2;
k: Integer;
.........
ShellWindow := CoShellWindows.Create; // всего окон в Windows
// получаем запущенный экземпляр Internet Explorer
// для этого пробегаемся по всем окнам системы
for k := 0 to ShellWindow.Count do
begin
spDisp := ShellWindow.Item(k);
if spDisp = nil then Continue;
//QueryInterface определяет, может ли интерфейс использоваться с объектом
// проверяем , а не Браузер ли это :
spDisp.QueryInterface(iWebBrowser2, WB);
if WB <> nil then
begin
// проверяем , а не HTML ли это
WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
if iDoc1 <> nil then // если да, то выдергиваем html код
begin
//!!!!!!!!!!!!!! Если заголовок = Delphi Sources то вытягиваем html-код
// связываем запущенный экземпляр Internet Explorera как браузер
WB := ShellWindow.Item(k) as IWebbrowser2;
begin
GetHTMLCode(WB,Memo1.Lines); // процедура вытягивает html-код
end;
end;
end;
end;
[/CODE ]