Obtém o valor da propriedade 'Position' de uma instância da classe Delphi TProgressBar usando AutoHotkey (ahk)

Question

Eu gostaria de obter o valor atual da propriedade Position (progress) de TProgressBar1 , que é filho de TProgressFrame1 e neto de TPanel1 dentro de uma determinada janela TProgressDlg . TProgressBar é uma classe definida no Delphi e TProgressBar1 é uma instância específica que o AutoHotkey "vê" com seu próprio HWnd .

É possível pegar o valor TProgressBar1.Position de um aplicativo externo com o AutoHotkey?

Eu tentei

; 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% sai em branco, enquanto %B% é de fato TProgressBar1

Parece que em um Delphi nativo, seria algo como (de aqui )

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

O documento de código do Delphi para o link da propriedade indica que algo como curValue := TProgressBar1.Position funcionaria

Eu uso algo como

1. %código%? ou
2. %código%? ou
3. %código%? (e / ou qualquer um dos itens acima com ...)
4. ComObjGet primeiro?

WM_DDE_REQUEST = 0x03E6
TProgressBar1.__Get(Position) tem um valor SendMesssage, 0x03E6, clh_%A_Index%, 0x03330600 ;* de cpy := TProgressBar1.Clone()

Eu já tentei algumas iterações de 3 e 4, mas posso estar fazendo errado, já que não há evidência de que o TProgressBar (abaixo) seja chamado. Aqui está o que eu tentei:

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
}