Delphi 获取Chrome浏览器地址栏URL

2017-04-27 09:27:14来源:oschina作者:vga人点击



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,测试通过
其他版本没试过,大家可以试试

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台