vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
Re: Tittelzeile 
Autor: ModeratorDieter (Moderator)
Datum: 13.06.02 19:26

Hi Claus,

setze ein Timer auf Deine Form und lege das Intervall entsprechend fest.
Im Timer-Event prüfst Du dann, ob der Explorer geöffnet ist:
 Prüfen, ob eine Anwendung bereits ausgeführt wird

Über das Handle (curhWnd) und der Funktion GetWindowText ermittelst Du dann den Fenstertitel - aber nur wenn das Handle = GetForeGroundWindow ist.

Hier der gesamte Code:
Option Explicit
 
Private Declare Function GetWindow Lib "user32" _
  (ByVal hwnd As Long, ByVal wCmd As Long) As Long
 
Private Declare Function GetClassName Lib "user32" _
  Alias "GetClassNameA" (ByVal hwnd As Long, _
  ByVal lpClassName As String, ByVal nMaxCount As Long) _
  As Long
 
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 GetForegroundWindow Lib _
  "user32" () As Long
 
Const GW_HWNDFIRST = 0
Const GW_HWNDNEXT = 2
 
Private Function SearchClassName(ByVal ClassName As String) As Long
  Dim lRetVal As Long
  Dim sClassName As String
  Dim curhWND As Long
 
  curhWND = GetWindow(hwnd, GW_HWNDFIRST)
  Do While curhWND <> 0
    sClassName = String$(256, " ")
    lRetVal = GetClassName(curhWND, sClassName, 255)
    sClassName = Left$(sClassName, InStr(sClassName, _
      Chr$(0)) - 1)
 
    If sClassName = ClassName Then
      Exit Do
    End If
 
    curhWND = GetWindow(curhWND, GW_HWNDNEXT)
  Loop
  SearchClassName = curhWND
End Function
 
Private Sub Timer1_Timer()
  Dim curhWND As Long
  Dim sTitel As String
  Dim lRet As Long
 
  curhWND = SearchClassName("ExploreWClass")
  If curhWND <> 0 Then
    If curhWND = GetForegroundWindow() Then
      sTitel = Space$(255)
      lRet = GetWindowText(curhWND, sTitel, Len(sTitel))
      Text1.Text = sTitel
    End If
  End If
End Sub
Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tittelzeile85Claus13.06.02 14:47
Re: Tittelzeile312ModeratorDieter13.06.02 14:54
Re: Tittelzeile60Claus13.06.02 18:34
Re: Tittelzeile306ModeratorDieter13.06.02 19:26

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel