文档章节

Delphi 获取Chrome浏览器地址栏URL

vga
 vga
发布于 2017/04/26 14:55
字数 124
阅读 36
收藏 0
点赞 0
评论 2

Delphi 获取Chrome浏览器地址栏URL 标签: chrome浏览器 谷歌浏览器 delphi 分类: Delphi var hChrome:hwnd; addr: array[0..255] of char; begin hChrome:=FindWindow('Chrome_WidgetWin_1',nil); hChrome:=FindWindowEx(0,hChrome,'Chrome_WidgetWin_1',nil); hChrome:=FindWindowEx(hChrome,0,'Chrome_OmniboxView',nil); SendMessage(hChrome,wm_gettext,256,Integer(@addr)); Mmo1.Lines.Add(addr); end;

我用的是XE,Chrome版本是 25.0.1323.1 m,测试通过

hChrome:=FindWindow('Chrome_WidgetWin_1',nil); hChrome:=FindWindowEx(hChrome,0,'Chrome_OmniboxView',nil); Google Chrome版本 27.0.1453.6 m,测试通过 其他版本没试过,大家可以试试

本文转载自:http://blog.sina.com.cn/s/blog_5b98456401016qhg.html

共有 人打赏支持
vga

vga

粉丝 19
博文 335
码字总数 23381
作品 0
佳木斯
加载中

评论(2)

vga
vga
uses DDEMan;

function GetURL(Service: string): string;
var
ClDDE: TDDEClientConv;
temp: PChar;
begin
Result:='';
//create a new DDE Client object
ClDDE:=TDDEClientConv.Create(nil);
with ClDDE do
begin
SetLink(Service, 'WWW_GetWindowInfo');
temp := RequestData('0xFFFFFFFF');
Result := StrPas(temp);
StrDispose(temp);
CloseLink;
end;
ClDDE.Free;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2,DDEString:string;
ipos:integer;

begin
if Pos('- Mozilla Firefox',stitle)>0 then
begin
DDEString:= GetUrl('firefox');
iPos:=Pos(',', DDEString);
s1:=Copy(DDEString,iPos+2,Length(DDEString)-iPos-5);
s2:=Copy(DDEString,2,iPos-3);
Edit1.Text:=s1;
Edit2.Text:=s2;
end
else if Pos('- Microsoft Internet Explorer',stitle)>0 then
begin
DDEString:= GetUrl('iexplore');
iPos:=Pos(',', DDEString);
s1:=Copy(DDEString,iPos+2,Length(DDEString)-iPos-5);
s2:=Copy(DDEString,2,iPos-3);
Edit1.Text:=s1;
Edit2.Text:=s2;
end ;
end;
vga
vga
var
hChrome:hwnd;
addr: array[0..255] of char;
begin
hChrome:=FindWindow('Chrome_WidgetWin_1',nil);
hChrome:=FindWindowEx(0,hChrome,'Chrome_WidgetWin_1',nil);
hChrome:=FindWindowEx(hChrome,0,'Chrome_OmniboxView',nil);
SendMessage(hChrome,wm_gettext,256,Integer(@addr));
Mmo1.Lines.Add(addr);
end;

DelphiXE,Chrome版本是 25.0.1323.1 m,测试通过
Chrome常用URL命令(伪URL)

在Chrome地址栏输入chrome://chrome-urls/可以看到所有的Chrome支持的伪RUL 1、chrome://accessibility/ 可达性分析,默认是关闭的,点击accessibility off后变成accessibility on|show acc...

easonjim ⋅ 2017/11/22 ⋅ 0

Chrome 的 Material Design Refresh 设计语言初探

Google 透露,Chrome 浏览器的页面标签已经不再像以往那样倾斜和尖锐的外观,将引入圆形标签,圆润的地址栏和新的打开标签按钮。用户现在可以输入 chrome://flags/#top-chrome-md,然后从“U...

达尔文 ⋅ 04/27 ⋅ 0

无需插件只使用浏览器下载b站视频

2017.10.07更新:由于现在bilibili更改了refer的Host并使用了防盗链,原文的方法直接下载会有403错误,在博主琢磨出新的抓包方法之前可以先使用以下的方法: 在bilibili网址前加上,然后回车...

s_gy_zetrov ⋅ 2017/07/09 ⋅ 0

windows下如何查看以及清除DNS缓存 使host立即生效

本篇我们主要介绍windows下如何查看系统保存的dns缓存,以及清空dns缓存。同样介绍Google Chrome浏览器下如何查看浏览器保存的dns缓存,以及如何清空。 方法/步骤 首先我们来查看win系统内保...

李佳顺 ⋅ 05/29 ⋅ 0

Google I/O 2018 : 应用于 PC 端的 PWA

Chrome OS 67 已经支持 PC 端的 Progressive Web App 了,但目前还处于 Beta 阶段。Mac 和 Windows 相关的开发工作也在进行中。 PC 端的 PWA 可以像普通应用一样被「安装」在设备上。运行速度...

滴读 ⋅ 05/10 ⋅ 0

Chrome部署Material Design:标签栏类似于Firefox早期版本

Google正为Chrome网页浏览器推进部署Material Design,如果你想要提前感受全新的设计语言,那么现在可以通过Canary开发者通道下载最新版本进行体验。在部署新语言之后用户最直观的改变就是地...

稿源: ⋅ 04/24 ⋅ 0

Google Chrome 浏览器常用快捷键大全

1 标签页和窗口快捷键 2 功能快捷键 3 网页快捷键 4 鼠标快捷键

deniro ⋅ 06/11 ⋅ 0

百度网盘高速下载 Chrome 插件 - baidu-netdisk-high-speed

百度网盘高速下载 Chrome 插件 这是一款获取百度网盘下载直链的开源 Chrome 插件,获取到直链后你可以使用迅雷下载以达到不限速的目的。 如果该插件不好使,请直接使用百度网盘不限速下载器试...

88250 ⋅ 2017/12/25 ⋅ 7

PWA(Progressive Web App)入门系列:(三)PWA关键技术Manifest

前言 前面说过,让Web App能够达到Native App外观体验的主要实现技术就是PWA中的manifest技术,本章会详细说明manifest的实现,及各个参数的具体含义,还将了解如何定义Web App的启动图标、启...

lecepin ⋅ 2017/12/27 ⋅ 0

​微软发布用于谷歌浏览器的 Windows Defender 扩展

尽管微软努力让 Edge 作为 Windows 10 用户的默认浏览器,但是大部分用户依然选择使用 Chrome 浏览器。 根据市场调研,目前 Chrome 浏览器的占比已经超过 60%,而 Edge 浏览器的占比大约在 ...

局长 ⋅ 04/19 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

从 Confluence 5.3 及其早期版本中恢复空间

如果你需要从 Confluence 5.3 及其早期版本中的导出文件恢复到晚于 Confluence 5.3 的 Confluence 中的话。你可以使用临时的 Confluence 空间安装,然后将这个 Confluence 安装实例升级到你现...

honeymose ⋅ 今天 ⋅ 0

用ZBLOG2.3博客写读书笔记网站能创造今日头条的辉煌吗?

最近两年,著名的自媒体网站今日头条可以说是火得一塌糊涂,虽然从目前来看也遇到了一点瓶颈,毕竟发展到了一定的规模,继续增长就更加难了,但如今的今日头条规模和流量已经非常大了。 我们...

原创小博客 ⋅ 今天 ⋅ 0

MyBatis四大核心概念

本文讲解 MyBatis 四大核心概念(SqlSessionFactoryBuilder、SqlSessionFactory、SqlSession、Mapper)。 MyBatis 作为互联网数据库映射工具界的“上古神器”,训有四大“神兽”,谓之:Sql...

waylau ⋅ 今天 ⋅ 0

以太坊java开发包web3j简介

web3j(org.web3j)是Java版本的以太坊JSON RPC接口协议封装实现,如果需要将你的Java应用或安卓应用接入以太坊,或者希望用java开发一个钱包应用,那么用web3j就对了。 web3j的功能相当完整...

汇智网教程 ⋅ 今天 ⋅ 0

2个线程交替打印100以内的数字

重点提示: 线程的本质上只是一个壳子,真正的逻辑其实在“竞态条件”中。 举个例子,比如本题中的打印,那么在竞态条件中,我只需要一个方法即可; 假如我的需求是2个线程,一个+1,一个-1,...

Germmy ⋅ 今天 ⋅ 0

Springboot2 之 Spring Data Redis 实现消息队列——发布/订阅模式

一般来说,消息队列有两种场景,一种是发布者订阅者模式,一种是生产者消费者模式,这里利用redis消息“发布/订阅”来简单实现订阅者模式。 实现之前先过过 redis 发布订阅的一些基础概念和操...

Simonton ⋅ 今天 ⋅ 0

error:Could not find gradle

一.更新Android Studio后打开Project,报如下错误: Error: Could not find com.android.tools.build:gradle:2.2.1. Searched in the following locations: file:/D:/software/android/andro......

Yao--靠自己 ⋅ 昨天 ⋅ 0

Spring boot 项目打包及引入本地jar包

Spring Boot 项目打包以及引入本地Jar包 [TOC] 上篇文章提到 Maven 项目添加本地jar包的三种方式 ,本篇文章记录下在实际项目中的应用。 spring boot 打包方式 我们知道,传统应用可以将程序...

Os_yxguang ⋅ 昨天 ⋅ 0

常见数据结构(二)-树(二叉树,红黑树,B树)

本文介绍数据结构中几种常见的树:二分查找树,2-3树,红黑树,B树 写在前面 本文所有图片均截图自coursera上普林斯顿的课程《Algorithms, Part I》中的Slides 相关命题的证明可参考《算法(第...

浮躁的码农 ⋅ 昨天 ⋅ 0

android -------- 混淆打包报错 (warning - InnerClass ...)

最近做Android混淆打包遇到一些问题,Android Sdutio 3.1 版本打包的 错误如下: Android studio warning - InnerClass annotations are missing corresponding EnclosingMember annotation......

切切歆语 ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部