怎么样获取ie地址栏的url啊（急）

Question

请问怎么用delphi编程获取ie浏览器地址栏的url啊（急）
谢谢各位大虾..
在先等..

Answer 1

给出参考值：
\HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings下面的ProxyServer之后通过
#include <Registry.hpp>
TRegistry *reg = new TRegistry;
reg->RootKey = HKEY_CURRENT_USER;
if (reg->OpenKey("\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings",false))
if (reg->ValueExists("ProxyServer"))
ShowMessage(reg->ReadString("ProxyServer"));
reg->CloseKey();
delete reg;
reg = NULL;

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;  function EnumWindowsProc(hwnd: THandle; lParam: LPARAM): boolean; stdcall;var
  Form1: TForm1;implementation{$R *.dfm}function EnumWindowsProc(hwnd: THandle; lParam: LPARAM): boolean; stdcall;
var
  classname: array[0..255] of char;
  addr: array[0..255] of char;
  edith: THandle;
begin
  GetClassName(hwnd,classname,256);
  if classname = 'IEFrame' then
  begin
    edith:= findwindowex(hwnd,0,'WorkerW',nil);
    edith:= findwindowex(edith,0,'ReBarWindow32',nil);
    edith:= findwindowex(edith,0,'ComboBoxEx32',nil);
    sendmessage(edith,wm_gettext,256,Integer(@addr));
    Form1.Memo1.Lines.Add(addr);
  end;
  result:= true;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumWindowsProc,0);
end;end.

Answer 3

xixuemao(从哪里跌倒就要从哪里抬出去)
 腾讯的TT浏览器怎么 写啊谢谢

Answer 4

腾讯的TT浏览器的 类怎么找啊
比如下面是 ie  的  edith:= findwindowex(hwnd,0,'WorkerW',nil);
    edith:= findwindowex(edith,0,'ReBarWindow32',nil);
    edith:= findwindowex(edith,0,'ComboBoxEx32',nil);