Programming Tool Box/SIMS_2.iso/code/system/callback/enumwind.frm

Visual Basic Form | 1995-02-27 | 11.1 KB | 295 lines

VERSION 2.00
Begin Form frmEnumWindows
   BackColor       =   &H00C0C0C0&
   Caption         =   "EnumWindows"
   ClientHeight    =   6252
   ClientLeft      =   5592
   ClientTop       =   4308
   ClientWidth     =   7212
   Height          =   6672
   Left            =   5544
   LinkTopic       =   "Form1"
   ScaleHeight     =   6252
   ScaleWidth      =   7212
   Top             =   3936
   Width           =   7308
   Begin Frame Frame1
      BackColor       =   &H00C0C0C0&
      Height          =   2175
      Left            =   2940
      TabIndex        =   9
      Top             =   2100
      Width           =   4155
      Begin TextBox txtHwnd
         Height          =   315
         Left            =   2160
         TabIndex        =   13
         Text            =   "Hwnd"
         Top             =   1740
         Visible         =   0   'False
         Width           =   1395
      End
      Begin CommandButton cmdEnumProps
         BackColor       =   &H00C0C0C0&
         Caption         =   "EnumProps"
         Enabled         =   0   'False
         Height          =   315
         Left            =   120
         TabIndex        =   12
         Top             =   1740
         Width           =   1815
      End
      Begin ListBox lstMore
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Courier New"
         FontSize        =   9.6
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   672
         Left            =   120
         TabIndex        =   10
         Top             =   360
         Width           =   3912
      End
      Begin Label lblMore
         Alignment       =   2  'Center
         BackColor       =   &H00000000&
         Caption         =   " Weitere Informationen:"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   0
         TabIndex        =   11
         Top             =   60
         Width           =   4155
      End
   End
   Begin Frame fraComment
      BackColor       =   &H00C0C0C0&
      Height          =   1815
      Left            =   60
      TabIndex        =   6
      Top             =   4320
      Width           =   7035
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "Beim
ffnen des Formulars werden alle Fenster des Systems in die obige Listbox eingetragen. Neben dem numerischen Wert des Fenster-Handles (hWnd) sehen Sie auch den Titel (Caption) sowie die Fensterklasse eines Fensters. Wenn Sie in der Liste ein Fenster anw
hlen, werden im ""Fenster-Stile"" Abschnitt die Stilarten des Fensters (System-Men
, Min/Max Schaltfl
chen etc.) angezeigt."
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.6
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   1455
         Left            =   60
         TabIndex        =   8
         Top             =   300
         Width           =   6915
      End
      Begin Label Label1
         Alignment       =   2  'Center
         BackColor       =   &H00000000&
         Caption         =   " Kommentar:"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   0
         TabIndex        =   7
         Top             =   60
         Width           =   7035
      End
   End
   Begin Frame fraStile
      BackColor       =   &H00C0C0C0&
      Height          =   2175
      Left            =   60
      TabIndex        =   0
      Top             =   2100
      Width           =   2835
      Begin ListBox lstStile
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Courier New"
         FontSize        =   9.6
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   1104
         Left            =   120
         TabIndex        =   2
         Top             =   360
         Width           =   2592
      End
      Begin Label lblStileLabel
         Alignment       =   2  'Center
         BackColor       =   &H00000000&
         Caption         =   " Fenster-Stile:"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   0
         TabIndex        =   1
         Top             =   60
         Width           =   3015
      End
   End
   Begin Frame fraListe
      BackColor       =   &H00C0C0C0&
      Height          =   1995
      Left            =   60
      TabIndex        =   3
      Top             =   60
      Width           =   7035
      Begin ListBox lstEnumWindows
         Height          =   1560
         Left            =   120
         TabIndex        =   4
         Top             =   300
         Width           =   6792
      End
      Begin Label lblListeLabel
         Alignment       =   2  'Center
         BackColor       =   &H00404040&
         Caption         =   " Fensterliste:"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   0
         TabIndex        =   5
         Top             =   0
         Width           =   7035
      End
   End
   Begin CBVBX ctlEnumWindows
      CBType          =   6  ' 6  - EnumWindowsProc
      Left            =   0
      Top             =   0
   End
Option Explicit
Dim indent%
Sub cmdEnumProps_Click ()
  frmEnumProps.Show 1
End Sub
Sub ctlEnumWindows_EnumWindowsProc (hWnd As Integer, lpData As Long, retval As Integer)
    'Diese Funktion wird rekursiv aufgerufen, um ausgehend von einem Fenster alle
    'seine Kindfenster aufzuz
    Dim title As String * 255 'Nimmt Caption (Titel) eines Fensters auf
    Dim class As String * 255, t%, c%, dummy 'Nimmt Klasse eines Fenster auf
    t% = GetWindowText(hWnd, title, 255)  'R
ckgabewert = Anzahl zur
ckgegebener Zeichen
    c% = GetClassName(hWnd, class, 255)
    If t% Then
      title = " " & title
      t% = t + 1
    End If
    lstEnumWindows.AddItem Space$(indent * 4) & "&H" & Hex$(hWnd) & Left$(title, t%) & " [" & Left$(class, c%) & "] "
    lstEnumWindows.ItemData(lstEnumWindows.NewIndex) = hWnd
    indent = indent + 1 'Einzug f
chste Rekursionsstufer erh
    dummy = EnumChildWindows(hWnd, ctlEnumWindows.CBAdress, lpData) 'Kindfenster aufz
    indent = indent - 1
    retval = True      'weitere Fenster aufz
End Sub
Sub Form_Load ()
    Dim dummy
    dummy = SetProp(Me.hWnd, ByVal "Ha", 0)
    indent% = 0 'Einzug auf unterster Stufe
    lstEnumWindows.Clear
    dummy = EnumWindows(ctlEnumWindows.CBAdress, 0&)
    dummy = SendMessage(lstMore.hWnd, LB_SETHORIZONTALEXTENT, ByVal 400, ByVal 0&)
End Sub
Sub GetMore (ByVal hWnd%)
  'ermittelt weitere Fensterinformationen
  Dim m%, ww%
  Dim InstancePath As String * 255
  Dim r As Rect
  lstMore.Clear 'Listbox l
schen
  'Instanz und Pfadnamen des Moduls (DLL oder Exe) ermittlen, das f
r Erzeugung des Fensters verantwortlich war
  m% = GetModuleFileName(GetWindowWord(hWnd, GWW_HINSTANCE), InstancePath, Len(InstancePath))
  lstMore.AddItem "Instance       : &H" & Hex(GetWindowWord(hWnd, GWW_HINSTANCE))
  lstMore.AddItem "Exe-Path       : " & Left(InstancePath, m%)
  'Dimension und Position der NonPlient-Area ermitteln (Fensterkoordinaten)
  GetWindowRect hWnd, r
  lstMore.AddItem "NonClient-Area : " & CStr(r.Right - r.Left) & "x" & CStr(r.Bottom - r.Top) & " - (" & CStr(r.Left) & "," & CStr(r.Top) & ")-(" & CStr(r.Right) & "," & CStr(r.Bottom) & ")"
  'Dimension der Client-Area (Zeichenbereich) ermitteln
  GetClientRect hWnd, r
  lstMore.AddItem "Client-Area    : " & CStr(r.Right - r.Left) & "x" & CStr(r.Bottom - r.Top)
  'ID (Dialog-Element oder Men
) ermitteln
  lstMore.AddItem "ID             : " & CStr(GetWindowWord(hWnd, GWW_ID))
  'Eltern-Fenster ermittlen
  If GetParent(hWnd) Then
    lstMore.AddItem "Parent         : &H" & CStr(Hex(GetParent(hWnd)))
  Else
    lstMore.AddItem "Parent         : None"
  End If
  lstMore.AddItem "Owner          : " & CStr(Hex(GetWindow(hWnd, GW_OWNER)))
  'Extra-Bytes des Windows ermitteln und als Hex und Ascii ausgeben
  For m% = 0 To GetClassWord(hWnd, GCW_CBWNDEXTRA) / 2
    ww = GetWindowWord(hWnd, m)
    lstMore.AddItem "Extra" & Format(2 * m%, "000") & "       : &H" & Zero(Hex$(hibyte(ByVal ww%))) & " Asc: " & Chr$(hibyte(ByVal ww%))
    lstMore.AddItem "Extra" & Format(2 * m% + 1, "000") & "       : &H" & Zero(Hex$(lobyte(ByVal ww%))) & " Asc: " & Chr$(lobyte(ByVal ww%))
  Next m%
End Sub
Sub GetStyle (ByVal hWnd%)
  'Tragt die Fensterstile des
bergebenen Fensters in die Listbox lstStile ein.
  Dim s&  'Enth
lt den Fensterstil (bitcodiert)
  lstStile.Clear 'Alle Eintr
ge der Listbox l
schen
  s& = GetWindowLong(hWnd, GWL_STYLE) 'Fensterstil ermitteln und Bits "aufdr
seln":
  If s And WS_POPUP Then
      lstStile.AddItem "WS_POPUP"
  ElseIf s And WS_CHILD Then
      lstStile.AddItem "WS_CHILD"
  Else
      lstStile.AddItem "WS_OVERLAPPED"
  End If
  If s And WS_CLIPSIBLINGS Then lstStile.AddItem "WS_CLIPSIBLINGS"
  If s And WS_CLIPCHILDREN Then lstStile.AddItem "WS_CLIPCHILDREN"
  If s And WS_VISIBLE Then lstStile.AddItem "WS_VISIBLE"
  If s And WS_DISABLED Then lstStile.AddItem "WS_DISABLED"
  If s And WS_MINIMIZE Then lstStile.AddItem "WS_MINIMIZE"
  If s And WS_MAXIMIZE Then lstStile.AddItem "WS_MAXIMIZE"
  If s And WS_CAPTION = WS_CAPTION Then
    lstStile.AddItem "WS_OVERLAPPED"
  Else
      If s And WS_BORDER Then lstStile.AddItem "WS_BORDER"
      If s And WS_DLGFRAME Then lstStile.AddItem "WS_DLGFRAME"
  End If
  If s And WS_VSCROLL Then lstStile.AddItem "WS_VSCROLL"
  If s And WS_HSCROLL Then lstStile.AddItem "WS_HSCROLL"
  If s And WS_SYSMENU Then lstStile.AddItem "WS_SYSMENU"
  If s And WS_THICKFRAME Then lstStile.AddItem "WS_THICKFRAME"
  If s And WS_MINIMIZEBOX Then lstStile.AddItem "WS_MINIMIZEBOX"
  If s And WS_MAXIMIZEBOX Then lstStile.AddItem "WS_MAXIMIZEBOX"
  If s And WS_GROUP Then lstStile.AddItem "WS_GROUP"
  If s And WS_TABSTOP Then lstStile.AddItem "WS_TABSTOP"
  'Erweiterte Fensterstile:
  If s And WS_EX_DLGMODALFRAME Then lstStile.AddItem "WS_EX_DLGMODALFRAME"
  If s And WS_EX_NOPARENTNOTIFY Then lstStile.AddItem "WS_EX_NOPARENTNOTIFY"
  If s And WS_EX_TOPMOST Then lstStile.AddItem "WS_EX_TOPMOST"
  If s And WS_EX_ACCEPTFILES Then lstStile.AddItem "WS_EX_ACCEPTFILES"
  If s And WS_EX_TRANSPARENT Then lstStile.AddItem "WS_EX_TRANSPARENT"
End Sub
Sub lstEnumWindows_Click ()
  Dim li%
  li% = lstEnumWindows.ListIndex
  If li > 0 Then
    txthWnd = CStr(lstEnumWindows.ItemData(li))'stellt das Handle dem EnumProps-Formular zur Verf
    GetStyle (CInt(lstEnumWindows.ItemData(li)))
    GetMore (CInt(lstEnumWindows.ItemData(li)))
    cmdEnumProps.Enabled = True
  End If
End Sub
Function Zero$ (s$)
  Zero = s$
  If Len(s$) = 1 Then Zero = "0" + s$
End Function