如何获取本机访问的网站地址(150)

如何自动获取本机通过ie浏览器访问的地址，要实时性的，有代码吗？。

可以 bho 吗？

uses DDEman;var DDE:TDdeClientConv; ss1:string; si:integer;begin DDE:=TDdeClientConv.Create(Self); DDE.OpenLink; ss1:=DDE.RequestData('-1'); si:=pos(',',ss1); delete(ss1,1,si+1); // ss1 当前 ie 访问的地址 DDE.CloseLink; DDE.Free;end;

请问是否可以把chrome嵌入到自己的应用程序中？开发Web浏览小工具，要求如下：1、内嵌Google浏览器。2、运行程序可以读取配置文件中设置的URL，并在内嵌的Google浏览器中打开。3、内嵌Google浏览器要求不允许显示浏览器地址栏等信息，只显示页面。能完成此工具的可以走外包形式。联系人： 林先生电话： 13683611366

你从 http://dev.chromium.org/developers/how-tos/build-instructions-windows里获取代码 再编译不行吗

foam, 不可以哦 我试过了 可能是我不知道怎么用呢

：P 丢了行码。对不起。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DDEman, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; DDE:TDdeClientConv; implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var ss1:string; si:integer;begin DDE:=TDdeClientConv.Create(Self); if not DDE.SetLink('Iexplore', 'WWW_GetWindowInfo') then exit; DDE.OpenLink; ss1:=DDE.RequestData('-1'); DDE.CloseLink; DDE.Free; si:=pos(',',ss1); delete(ss1,1,si+1); SetLength(ss1,Length(ss1)-1); Memo1.Lines.Add(ss1); // ss1 当前 ie 访问的地址end;end.测试过了。

多人接受答案了。