文档章节

Delphi 获取Chrome浏览器地址栏URL

vga
 vga
发布于 2017/04/26 14:55
字数 124
阅读 47
收藏 0

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

粉丝 21
博文 357
码字总数 24097
作品 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,测试通过
window.close(); 关闭浏览器窗口JS代码的分析总结

序号 关闭代码 需要确认 无任何作用 无需确认 1 window.close() IE7 firefox,chrome,safari Opera 2 window.opener=null; window.open('','_self'); window.close(); firefox IE7,Opera,......

zc0021
2013/01/10
0
0
Chrome常用URL命令(伪URL)

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

easonjim
2017/11/22
0
0
Google Chrome浏览器的地址栏疑似不再显示协议名称

据外媒报道,谷歌每年都会为它的Chrome浏览器带来更新,并且次数通常都会在两次以上。这意味着这家公司一直在对互联网上最具人气的浏览器之一进行着细微的调整和改变。最近,网站HTNovo.net就...

稿源:
09/03
0
0
Chrome浏览器的地址栏疑似不再显示协议名称

据外媒报道,谷歌每年都会为它的Chrome浏览器带来更新,并且次数通常都会在两次以上。这意味着这家公司一直在对互联网上最具人气的浏览器之一进行着细微的调整和改变。最近,网站HTNovo.net就...

稿源:
09/03
0
0
谷歌打算做出最具争议性的举措——彻底弃用URL

     就在几天前(9月4号),谷歌Chrome浏览器刚过完自己的10岁生日。虽然它还很年轻,却已为互联网带来了很多根本性的变革。从普及自动更新到积极推广HTTPS网络加密,Chrome安全团队总在...

嘶吼RoarTalk
09/08
0
0

没有更多内容

加载失败,请刷新页面

加载更多

linux学习-0919

linux和windows互传文件 用户配置文件和密码配置文件 用户组管理 用户管理 一、linux和windows互传文件 linux和windows可以互相传输文件,但是需要使用xshell 并且安装lrzsz包: yum insta...

wxy丶
39分钟前
1
0
收集几个开源的微信小程序开发框架

1、 mpvue mpvue 是美团点评开源的一个使用 Vue.js 开发小程序的前端框架。框架基于 Vue.js 核心,mpvue 修改了 Vue.js 的 runtime 和 compiler 实现,使其可以运行在小程序环境中,从而为小...

哥本哈根的小哥
46分钟前
1
0
Golang CSP并发模型

今天介绍一下 go语言的并发机制以及它所使用的CSP并发模型 CSP并发模型 CSP模型是上个世纪七十年代提出的,用于描述两个独立的并发实体通过共享的通讯 channel(管道)进行通信的并发模型。 CS...

xtof
46分钟前
1
0
用chrome在电脑上模拟微信内置浏览器

先了解安卓微信和Ios微信的UA(User agent:用户代理) 安卓微信UA: mozilla/5.0 (linux; u; android 4.1.2; zh-cn; mi-one plus build/jzo54k) applewebkit/534.30 (khtml, like gecko) ve......

可达鸭眉头一皱
53分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部