Delphi 获取Chrome浏览器地址栏URL
博客专区 > vga 的博客 > 博客详情
Delphi 获取Chrome浏览器地址栏URL
vga 发表于9个月前
Delphi 获取Chrome浏览器地址栏URL
  • 发表于 9个月前
  • 阅读 27
  • 收藏 0
  • 点赞 0
  • 评论 2

标题:腾讯云 新注册用户域名抢购1元起>>>   

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

共有 人打赏支持
粉丝 18
博文 315
码字总数 19199
评论 (2)
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,测试通过
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
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: