3

Я хотел бы получить текущее значение свойства Position (progress) из TProgressBar1 , который является дочерним элементом TProgressFrame1 и внуком TPanel1 в конкретном окне TProgressDlg . TProgressBar - это класс, определенный в Delphi, а TProgressBar1 - это конкретный экземпляр, который AutoHotkey "видит" со своим собственным HWnd .

Можно ли захватить TProgressBar1.Position из внешнего приложения с AutoHotkey?

я пробовал 

; AutoHotkey Version: 1.1.22.07 
DetectHiddenWindows, On
SetTitleMatchMode, RegEx
GroupAdd, MyGroup, ahk_exe [partial path of executable], , , ahk_exe explorer.exe ; exclude any explorer windows open to that path.
WinGet, x, List, ahk_group MyGroup
Loop, %x% ; This application has 68-73 windows, most hidden, when it runs
{
    this_id := x%A_Index%
    WinGetTitle wtit, ahk_id %this_id%
    WinGet, clh, ControlListHwnd, ahk_id %this_id% ;%wtit%, %wtxt%
    StringSplit, clh_, clh, `n
    Loop, %clh_0% ; the 0th entry contains the size of the array this loop iteration. Don't want to loop through all in %clh_ as previous iterations may have stored more values at haven't been cleared.
    {
        clh_cur := clh_%A_Index%
        IfEqual, cl_%A_Index%, TProgressBar1
        {
            B := cl_%A_Index% ; TProgressBar1
            C := %B%.Position ; Expecting something like 60 (percent). I could also divide by %B%.Max to make sure what the range is, assuming I could get values  like this.
            MsgBox "%B% is %C% percent complete"
        }
    }
}
return

%C% выходит пустым, тогда как %B% действительно TProgressBar1

Это выглядит как в родном Delphi, это будет выглядеть примерно так (отсюда)

 aPB := TProgressBar(FindComponent('Progress')) ;
 curValue := aPB.Position

Документ кодекса Delphi для ссылки на свойство указывает, что что-то вроде
curValue := TProgressBar1.Position будет работать

Я использую что-то вроде

  1. ComObjGet? или же
  2. TProgressBar1.__Get(Position)? или же
  3. SendMesssage, 0x03E6, clh_%A_Index%, 0x03330600 ;*? (и / или любое из перечисленного с ...)
  4. cpy := TProgressBar1.Clone() первым?

WM_DDE_REQUEST = 0x03E6
TProgressBar имеет значение Properties Delphi00001514 0x03330600 (53675520)

С тех пор я попробовал некоторые итерации 3 и 4, но, возможно, я делаю это неправильно, поскольку нет никаких доказательств того, что MyMessageMonitor (ниже) когда-либо вызывался. Вот что я попробовал:

WM_DDE_INITIATE   := 0x3E0
WM_DDE_TERMINATE:= 0x3E1
WM_DDE_ADVISE   := 0x3E2
WM_DDE_UNADVISE   := 0x3E3
WM_DDE_ACK   := 0x3E4
WM_DDE_DATA   := 0x3E5
WM_DDE_REQUEST   := 0x3E6
WM_DDE_POKE   := 0x3E7
WM_DDE_EXECUTE   := 0x3E8

OnMessage(0x03E05, "MyMessageMonitor") ; WM_DDE_DATA by MSDN's definition
OnMessage(WM_DDE_DATA, "MyMessageMonitor") ; WM_DDE_DATA there's a post "correcting" MSDN's value at bottom, so may as well look for both
OnMessage(0x03E4, "MyMessageMonitor") ; WM_DDE_ACK

...

; IfEqual block innards
        nAppli := DllCall("GlobalAddAtom", "str", [application exe name, minus .exe], "Ushort")
        nDDE_Topic := DllCall("GlobalAddAtom", "str", [application exe name, minus .exe], "Ushort")
        SendMessage, WM_DDE_INITIATE, A_ScriptHwnd, nAppli | nDDE_Topic << 16,,ahk_id %clh_cur%
        B := cl_%A_Index%
        Bh := clh_%A_Index%
        C := %Bh%.Clone()
        D := %C%.__Get("Position")
        E := IsObject(%C%)
        F := %Bh%["Position"]
        SendMessage, 0x03E6, A_ScriptHwnd,  0x03330600, cl_%A_Index%, ahk_id %this_id% ; send WM_DDE_REQUEST from current window to TProgressBar1
        MsgBox "%B% has position value %D% or %F%. %B% an object? %E%" ; brings up box with "TProgressBar1 has position value  or . TProgressBar1 an object? 0"
        DllCall("DeleteAtom", "Ushort", nAppli)
        DllCall("DeleteAtom", "Ushort", nDDE_Topic)
...
OnMessage(0x03E05, "")
OnMessage(0x03E5, "") ; WM_DDE_DATA
OnMessage(WM_DDE_ACK, "") ; 0x03E4
return

MyMessageMonitor(wParam, lParam, msg, hwnd)
{
    MsgBox "w: " . wParam . " l: " . lParam . " msg: " . msg . " hwnd: " . hwnd
    return
}
|источник

0