Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ist hwnd ein "Fenster"
Autor: Ich
Datum: 09.07.03 16:27
Hier hast Du ein kleines Code-Beispiel: mach ne Form mit nem ListView drauf und ein Modul. Form: Option Explicit Private Sub Form_Load() 1 ListView1.ColumnHeaders.Add 1, "c1", "hwnd", 1000 2 ListView1.ColumnHeaders.Add 2, "c2", "title", 5000 3 EnumWindows AddressOf EnumWindowsProc, ByVal 0& End Sub Modul: Option Explicit Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, _ ByVal lpString As String, _ ByVal cch As Long) As Long Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Private i As Long Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean 1 Dim sSave As String, Ret As Long 'Windowtitellänge ermitteln. 2 Ret = GetWindowTextLength(hwnd) 3 If Ret > 0 Then 'Variable mit Blanksauffüllen. 4 sSave = Space(Ret) 'Windowtiel ermitteln. 5 GetWindowText hwnd, sSave, Ret + 1 6 i = i + 1 7 Form1.ListView1.ListItems.Add i, "a" & i, hwnd 8 Form1.ListView1.ListItems(i).SubItems(1) = sSave 9 End If 10 EnumWindowsProc = True End Function

Ist hwnd ein "Fenster"	618	E7	06.07.03 14:02
Re: Ist hwnd ein "Fenster"	320	Master	06.07.03 15:08
Re: Ist hwnd ein "Fenster"	298	E7	08.07.03 19:14
Re: Ist hwnd ein "Fenster"	280	Master	08.07.03 19:41
Re: Ist hwnd ein "Fenster"	310	E7	08.07.03 20:14
Re: Ist hwnd ein "Fenster"	261	Master	09.07.03 08:35
Re: Ist hwnd ein "Fenster"	304	E7	09.07.03 09:32
Re: Ist hwnd ein "Fenster"	270	efm	09.07.03 14:14
Re: Ist hwnd ein "Fenster"	301	E7	09.07.03 17:29
Re: Ist hwnd ein "Fenster"	299	Mr. Fox	09.07.03 14:46
Re: Ist hwnd ein "Fenster"	148	Ich	09.07.03 16:27
Re: Ist hwnd ein "Fenster"	276	Mr. Fox	09.07.03 18:14
Re: Ist hwnd ein "Fenster"	277	E7	09.07.03 18:27
Re: Ist hwnd ein "Fenster"	279	Mr. Fox	10.07.03 08:29
Re: Ist hwnd ein "Fenster"	296	E7	11.07.03 12:18

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen