怎样在Delphi中读取IE浏览器中地址栏里的内容

Question

在编程中要想知道现在登录的是什么网站只要把IE中地址栏里的字符串读出来就可以了，其实很简单，这个我也知道，可是，可是，可是，可是…………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………怎么读呀！！。有哪位好心的大虾能告诉我，我本菜鸟将感激不尽。以后绝对不再吃虾了，连虾米都不吃了，谢谢，谢谢！！呵呵。

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Registry, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
 j:TRegistry;
 sss:tstringlist;
 i:integer;
 begin
  j:=TRegistry.Create;
  j.RootKey := HKEY_CURRENT_USER;
 if  j.OpenKey ('\Software\Microsoft\Internet Explorer\TypedURLs',false)  then
    begin
     sss:=tstringlist.create;
     j.GetValueNames(sss);
       for I:=0 to sss.Count-1 do
          memo1.Lines.Add (j.ReadString(sss[I]));
       sss.free;
     end;
  j.Free ;
 end;end.