uses SHDocVw

var
   i: Integer;
   Browser: IWebBrowser2;
begin
    with CoShellWindows.Create as IShellWindows do
    for i := 0 to Count - 1 do
    begin
      Browser := Item(i) as IWebBrowser2;
      with Browser do
      if Browser <> nil then
        if CompareText(ExtractFileName(FullName), 'iexplore.exe') = 0 then
          Memo1.Lines.Add(LocationURL);
    end;
end;


상당히 간단한 내용이므로 설명은 생략 합니다. ㅋㅋ