• 任务栏窗口列表


    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 访问
    =============

  • 相关阅读:
    SQL中内连接和外连接
    MySQL执行计划解读
    排序算法
    Edge浏览器安装sci-hub插件及使用教程
    MATLAB R2020B 使用教学——窗口布局设置
    PHP半年了,已经可以独立支撑项目,几点心得记录
    看1000行代码不如自己写10行代码
    PHP逻辑运算符中的and和&&以及or和||是有区别的
    自学PHP的野方法
    PHP中SQL查询语句的id=%d解释
  • 原文地址:https://www.cnblogs.com/CodeGear/p/11875328.html
Copyright © 2020-2023  润新知