Получить значение для свойства `Position` из экземпляра класса Delphi TProgressBar с помощью AutoHotkey (ahk)

Я хотел бы получить текущее Position(свойство) значение свойства 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 Codeusage Doc для ссылки на свойство указывает, что что-то вроде
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 }