|
Hallo,
Mist, da fehlte noch das Wichtigste....
Aber, mein Code ist (noch) nicht rekursionsfähig. Dein Code müsste ja jetzt das TreeView finden, da es neben den Kindern auch alle weiteren Nachkömmlinge durchgeht...
Code:
1
2
3
4 |
|
Private Function EnumWindowProc(ByVal hWnd As LongPtr, lParam As LongPtr) As Long
mhTree = FindWindowExA(hWnd, 0, "SysTreeView32", vbNullString)
If mhTree = 0 Then EnumWindowProc = 1
End Function
|
_________
viele Grüße
Karl-Heinz
|