Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > de.comp.lang.vbclassic > #7666
| From | Klaus Ketelaer <usenet@ketelaer.de> |
|---|---|
| Newsgroups | de.comp.lang.vbclassic |
| Subject | Re: Desktop handle |
| Date | 2024-04-17 11:06 +0200 |
| Message-ID | <uvo3es$4dgq$3@solani.org> (permalink) |
| References | <uv954n$1pung$1@dont-email.me> |
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
Back to de.comp.lang.vbclassic | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread
Desktop handle "Wendelin Uez" <wuez@online.de> - 2024-04-11 19:03 +0200
Re: Desktop handle Ulrich Möller <knobbi38@arcor.de> - 2024-04-12 21:53 +0200
Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-13 10:30 +0200
Re: Desktop handle "Wendelin Uez" <wuez@online.de> - 2024-04-13 11:04 +0200
Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-13 19:06 +0200
Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-13 19:15 +0200
Re: Desktop handle "Wendelin Uez" <wuez@online.de> - 2024-04-14 18:35 +0200
Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-14 20:46 +0200
Re: Desktop handle Ulrich Möller <knobbi38@arcor.de> - 2024-04-13 13:35 +0200
Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-17 11:06 +0200
Re: Desktop handle "Wendelin Uez" <wuez@online.de> - 2024-04-17 16:07 +0200
Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-17 19:30 +0200
Re: Desktop handle "Wendelin Uez" <wuez@online.de> - 2024-04-19 13:44 +0200
Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-20 00:43 +0200
Re: Desktop handle "Wendelin Uez" <wuez@online.de> - 2024-04-20 19:46 +0200
csiph-web