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;