Delphi获取所有打开的IE窗口的网页源码
来源:互联网 发布:mac装windows 编辑:程序博客网 时间:2024/06/05 18:34
procedure TForm1.Button1Click(Sender: TObject);
var
ShellWindow: IShellWindows;
i: Integer;
spDisp: IDispatch;
IE1: IWebBrowser2;
begin
ShellWindow := CoShellWindows.Create;
for i:=0 to ShellWindow.Count - 1 do
begin
spDisp := ShellWindow.Item(i);
if spDisp <> nil then
begin
spDisp.QueryInterface(iWebBrowser2, IE1);
if IE1 <> nil then
begin
if Pos('http://', LowerCase(IE1.LocationURL)) = 1 then
begin
Memo1.Lines.Add(IE1.LocationURL); //获取网址
Memo1.Lines.Add((IE1.Document as IHtmlDocument2).body.outerHTML); //获取源码
end;
end;
end;
end;
end;
var
ShellWindow: IShellWindows;
i: Integer;
spDisp: IDispatch;
IE1: IWebBrowser2;
begin
ShellWindow := CoShellWindows.Create;
for i:=0 to ShellWindow.Count - 1 do
begin
spDisp := ShellWindow.Item(i);
if spDisp <> nil then
begin
spDisp.QueryInterface(iWebBrowser2, IE1);
if IE1 <> nil then
begin
if Pos('http://', LowerCase(IE1.LocationURL)) = 1 then
begin
Memo1.Lines.Add(IE1.LocationURL); //获取网址
Memo1.Lines.Add((IE1.Document as IHtmlDocument2).body.outerHTML); //获取源码
end;
end;
end;
end;
end;
0 0
- Delphi获取所有打开的IE窗口的网页源码
- Delphi控件IE窗口打开网页
- 获取所有打开的窗口的标题
- Delphi通过IE窗口句柄获取网页接口(IWebBrowser2)
- IE 取得打开网页中的所有email地址源码
- Delphi调用IE打开网页
- IE浏览器打开网页之后,右键,选择“查看源文件”后打开桌面窗口的问题
- Delphi中获取IE网页后,对GZIP方式的网页解压(gzip,deflate)
- 如何在WebBrowser打开的网页链接后直接在WebBrowser打开而不是新弹出一个IE窗口来打开
- 在WebBrowser控件打开的网页链接后直接打开而不新弹出IE窗口来打开
- 【转】只能在同一IE窗口打开网页的基本解决方法
- 获取网页的源码
- 获取网页的源码
- 如何用Delphi调用IE打开网页
- 何用Delphi调用IE打开网页
- 怎样打开一个全屏的IE窗口?
- Java打开新的IE窗口
- 解决IE不能打开新的窗口
- resin下webapps路径无法删除问题(自动恢复)
- 触发式电子邮件营销 掌握秘诀出奇制胜
- Delphi处理TWebBrowser的Close事件
- js数组的操作(转)
- 运动估计和运动补偿
- Delphi获取所有打开的IE窗口的网页源码
- fukan出错点总结
- SQL Server查詢可用磁盘空间
- 单链表的创建,遍历输出及释放
- Delphi通过IE窗口句柄获取网页接口(IWebBrowser2)
- linux 读取设备节点值
- 最新common-io-2.0的新功能之文件监控FileAlteration
- Delphi下载指定网址(URL)的文件,带进度条显示
- C++类与类之间数据的传递