Am 11.04.2024 um 19:03 schrieb Wendelin Uez:
> Ich möchte gerne u.a. die Icon-Positionen des Desktops auslesen können
> und bin zur Ermittlung des Desktop-Handles auf die beiden folgenden
> Code-Beispiele gestoßen:

Ich sitze jetzt seit 2 Tagen an den blöden Icons und komme nicht
weiter. Die Positionen sind kein Problem, aber ich komme einfach
nicht an die Texte heran...

Vielleicht hilft es dir ja:

Private Function EnumIcons(ByVal lSysListView As Long) As Long
Dim pid As Long
Dim tid As Long
Dim lpSysShared As Long
Dim hProcess As Long
Dim lWritten As Long
Dim i As Integer
Dim pt As POINTAPI

m_Icons = SendMessage(lSysListView, LVM_GETTITEMCOUNT, 0, 0&)
ReDim m_Icon(m_Icons)

tid = GetWindowThreadProcessId(lSysListView, pid)
lpSysShared = GetMemSharedNT(pid, Len(pt), hProcess)
WriteProcessMemory hProcess, ByVal lpSysShared, pt, Len(pt), lWritten
For i = 0 To m_Icons - 1
SendMessage hSysListView, LVM_GETITEMPOSITION, i, ByVal lpSysShared
ReadProcessMemory hProcess, ByVal lpSysShared, pt, Len(pt), lWritten

m_Icon(i).X = pt.X
m_Icon(i).Y = pt.Y
' m_Icon(i).Text = Ich bin einfach zu blöd den Text auszulenen...
Next i
FreeMemSharedNT hProcess, lpSysShared, Len(pt)

End Function