文档章节

Delphi 获取Chrome浏览器地址栏URL

vga
 vga
发布于 2017/04/26 14:55
字数 124
阅读 56
收藏 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
博文 362
码字总数 24609
作品 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为浏览器行业带来的变革

1.地址栏(The Omnibox) 你肯定很难相信,在过去浏览器要在一处进行网址搜索,而在另一处进行字段搜索。那时我们是多么原始!当Chrome在2008年出现的时候,他强调“干净、简单、高效的界面”...

linuxCool
10/29
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

没有更多内容

加载失败,请刷新页面

加载更多

网络优化-tcp和udp的协作

TODO

梦想游戏人
3分钟前
0
0
list和数组转化

Java中List转换为数组,数组转List List转换为Array可以这样处理: ArrayList<String> list=new ArrayList<String>(); String[] strings = new String[list.size()]; list.toArray(strings);......

west_coast
3分钟前
0
0
LSP 商户端API

Your domain:                  lsp-api-merchant.hhs2717.cnVirtualhost conf:             /usr/local/nginx/conf/vhost/lsp-api-merchant.hhs2717.cn.confDirectory of:......

BeanHo
12分钟前
0
0
设计模式 之 访问者模式

设计模式 之 访问者模式 概念 核心理念:将数据结构与算法分离。 使用场景:数据结构不变动,算法经常变动。 1、一个Visitor类存放被访问的对象,访问者主要处理具体算法与行为。 // 访问者...

GMarshal
17分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部