Check if Internet Explorer is running and get the source of the page that is displayed (Views: 32)
Problem/Question/Abstract: I need to identify if IE is already running on the machine, and if so, read the source of the HTML being displayed Answer: { ... } uses SHDocVw, MSHtml; { ...} var ShellWindows: IShellWindows; Browser: IWebBrowser2; i: integer; Doc: IHTMLDocument2; { ...} { Use ShellWindows to get the active browser window } ShellWindows := CoShellWindows.Create; for i := 0 to ShellWindows.Count - 1 do begin if Supports(ShellWindows.Item(i), IWebBrowser2, Browser) then begin Doc := Browser.Document as IHTMLDocument2; Memo1.Clear; Memo1.Lines.Add(Doc.body.innerText); { ...} |