var
I: integer;
spDisp: IDispatch;
IE1: IWebBrowser2;
ShellWindow: IShellWindows;
begin
ListBox1.clear;
ShellWindow := CoShellWindows.Create;
for I := 0 to ShellWindow.Count - 1 do
begin
try
spDisp := ShellWindow.Item(I);
if (spDisp <> nil) then
begin
spDisp.QueryInterface(IWebBrowser2, IE1);
if IE1 <> nil then
begin
ListBox1.items.add(IE1.Get_LocationURL());
end;
end;
except
on EAccessViolation do
begin
exit
end;
end;
end;
end;
---------------------------
百度订单转换Excel
---------------------------
file:///S:/新建文件夹
file:///C:/Users/lenovo/AppData/Roaming/Microsoft/Windows/Start%20Menu/Programs/Startup/ShortCut%20-%20快捷方式
file:///D:/RAD%20Studio/BaiduExcel/Release
file:///F:/WeChat%20Files/WeChat%20Files/notegod/FileStorage/File/2019-04
file:///F:/WeChat%20Files/WeChat%20Files/notegod/FileStorage/File/2019-04
file:///H:/ShortCut
file:///D:/RAD%20Studio/BaiduExcel/Release
file:///G:/DComponent/Berg%20Next/nextsuite6024
---------------------------
OK
---------------------------
---------------------------
百度订单转换Excel
---------------------------
file:///S:/新建文件夹
file:///C:/Users/lenovo/AppData/Roaming/Microsoft/Windows/Start%20Menu/Programs/Startup/ShortCut%20-%20快捷方式
file:///D:/RAD%20Studio/BaiduExcel/Release
file:///F:/WeChat%20Files/WeChat%20Files/notegod/FileStorage/File/2019-04
file:///H:/ShortCut
file:///D:/RAD%20Studio/BaiduExcel/Release
file:///G:/DComponent/Berg%20Next/nextsuite6024
http://www.msn.cn/zh-cn?ocid=iehp
about:Tabs
https://support.microsoft.com/hub/4230784/internet-explorer-help#!hub/4230784/internet-explorer-help
https://support.microsoft.com/zh-cn/help/17621/internet-explorer-downloads#!zh-cn/help/17621/internet-explorer-downloads
---------------------------
OK
---------------------------
hWindow: 65696
nItemCount: 25
1==扬声器: 100%
2==迷你SQL2000
当前实例 (local)\MSSQL
3==拼多多打印组件
4==CAINIAO打印组件(0.4.7.6)
5==Snip
6==票据神 - 千牛
7==微信
8==微信
9==QQ: 票据神软件(847965640)
声音: 开启
消息提醒框: 关闭
会话消息: 任务栏头像闪动
10==QQ: 745504498(745504498)
11==解决 PC 问题: 1 条重要消息
总共 3 条消息
12==Windows 任务管理器
13==CPU 使用率: 2%
14==Windows 任务管理器
15==Windows 任务管理器
16==Windows 任务管理器
17==Windows 任务管理器
18==Windows 任务管理器
19==Windows 任务管理器
20==Windows 任务管理器
21==Windows 任务管理器
22==Windows 任务管理器
23==Windows 任务管理器
24==Windows 任务管理器
25==ChinaNet-zkiF Internet 访问
=============
原文地址：https://www.cnblogs.com/CodeGear/p/11875328.html