function GetIEAddress(IEHandle:THandle;var Address:string):Boolean;
Const WM_GETTEXT = $D;
      WM_GETTEXTLENGTH =$E;
      CtlNames:array[0..4] of string=(
        ‘WorkerA‘,        //獲得IE窗口的工作區(qū)的句柄
        ‘ReBarWindow32‘,  //獲得IE窗口的菜單欄的句柄
        ‘ComboBoxEx32‘,   //獲得IE窗口的下拉菜單的句柄
        ‘ComboBox‘,       //獲得IE窗口的下拉菜單當(dāng)前項(xiàng)的句柄
        ‘Edit‘            //獲得這個(gè)下拉菜單的編輯框句柄
      );
var
  hwnd    :THandle;
  i,AddLen:integer;
  AddBuf  :Array[0..4095] of char;
  s       :string;
begin
  Result:=True;
  hwnd:=IEHandle;
  try
    for i:=0 to length(ctlnames)-1 do
      hwnd:=FindWindowEx(hwnd,0,PChar(CtlNames[i]),nil);
  except
    Result:=false;
  end;
  if (Result) then begin
    AddLen:=SendMessage(Hwnd,WM_GETTEXTLENGTH,0,0);
      //向系統(tǒng)發(fā)送獲得IE窗口的地址欄中的字符串長(zhǎng)度命令
    SendMessage(Hwnd,WM_GETTEXT,AddLen+1,DWord(@AddBuf));
      //向系統(tǒng)發(fā)送獲得IE窗體地址欄中的字符串命令
    if length(AddBuf)>0 then
    begin
      Address:=AddBuf;
      GetWindowText(IEHandle,AddBuf,length(AddBuf)+1);
      s:=Addbuf;
      i:=pos(Uppercase(‘ - Microsoft Internet Explorer‘),
        Uppercase(s));
      if i>0 then s:=Trim(copy(s,1,i-1));
      Address:=Address+‘ [‘+s+‘]‘;
    end
    else Result:=false;
  end;
end;

function EnumIEProc(hwnd:THandle;Param:LPARAM):Boolean;stdcall;
const NAME_LEN=1024;
type
  PStrings=^TStrings;
var
  sClassName:Array[0..NAME_LEN] of char;
  IEAddress:string;
  AddLen:Integer;
begin
  AddLen:=GetClassName(hwnd,@sClassName,NAME_LEN);
  if (AddLen=7) and  (sClassName=‘IEFrame‘) then
    if GetIEAddress(hwnd,IEAddress) then
      PStrings(Param).Add(IEAddress);
  Result:=true;
end;

function GetAllIEAddress(var Addresses:TStrings):Integer;
var
  s:TStrings;
begin
  s:=TStringList.Create ;
  EnumWindows(@EnumIEProc,LPARAM(@s));
  Result:=s.Count ;
  if Result>0 then Addresses.Assign (s);
  s.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s:TStrings;
begin
  s:=TStringList.Create ;
  GetAllIEAddress(s);
  if s.Count >0 then Memo1.Lines.Assign (s);
  s.free;
end;