• Delphi 版FindWindow 和 FindWindowEx 的语法和用法


    FindWindow(
    lpClassName,        {窗口的类名}
    lpWindowName: PChar {窗口的标题}
    ): HWND;              {返回窗口的句柄; 失败返回 0}
    //FindWindowEx 比 FindWindow 多出两个句柄参数:
    FindWindowEx(
    Parent: HWND;     {要查找子窗口的父窗口句柄}
    Child: HWND;      {子窗口句柄}
    ClassName: PChar; {}
    WindowName: PChar {}
    ): HWND;
    {
    如果 Parent 是 0, 则函数以桌面窗口为父窗口, 查找桌面窗口的所有子窗口;
    如果 是 HWND_MESSAGE, 函数仅查找所有消息窗口;
    子窗口必须是 Parent 窗口的直接子窗口;
    如果 Child 是 0, 查找从 Parent 的第一个子窗口开始;
    如果 Parent 和 Child 同时是 0, 则函数查找所有的顶层窗口及消息窗口.
    }



    //测试1: 试着找找新建程序主窗口的句柄
    var
    h: HWND;
    begin
    {现在我们知道窗口的标题是: Form1、窗口的类名是: TForm1}
    h := FindWindow('TForm1', 'Form1');
    ShowMessage(IntToStr(h));      {656180; 这是随机, 每次启动窗口肯定不一样}
    {假如不知道类名}
    h := FindWindow(nil, 'Form1');
    ShowMessage(IntToStr(h));      {656180}
    {假如不知道标题名}
    h := FindWindow('TForm1', nil);
    ShowMessage(IntToStr(h));      {656180}
    {其实这个窗口的句柄不就是 Self.Handle 吗}
    ShowMessage(IntToStr(Handle)); {656180}
    end;

    //测试2: 找计算器窗口的句柄(先打开计算器)
    var
    h: HWND;
    begin
    {如果不是简体中文系统, 这样可能不灵}
    h := FindWindow(nil, '计算器');
    ShowMessage(IntToStr(h)); {1508334}
    {最好这样, 但你得提前知道计算器窗口的类名是: SciCalc}
    h := FindWindow('SciCalc', nil);
    ShowMessage(IntToStr(h)); {1508334}
    end;
  • 相关阅读:
    appium自动化测试搭建
    How to install Qt Creator on Ubuntu 18.04
    Luci
    OpenWrt 根文件系统启动过程分析
    shell 杂烩
    OpenWrt Luci 调试日志输出的一种方法
    jQuery实现购物车计算价格的方法
    js实现购物车添加,减少数量
    golang-键盘录入数据
    JAVA存储机制(栈、堆、方法区详解)
  • 原文地址:https://www.cnblogs.com/bayzhang/p/7109935.html
Copyright © 2020-2023  润新知