title image


Smiley Re: API: Aktuelle und vorige Instanz schließen
>> ganz leicht beenden mit z.B. End



Du meinst wohl ohne Rücksicht auf Verluste killen, beenden ist was anderes

Programm beenden mit End...warum ich so dagegen bin





was hast du denn hier:



CurHwnd = GetWindow(hWnd, GW_HWNDFIRST)



für eine Startwert bei hWnd?



Normalerweise fängt man bei GetDesktopWindow an.









Option Explicit



Private Const GW_CHILD = 5

Private Const GW_HWNDNEXT = 2



Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd 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 GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long







Private Function SearchWindowByCaption(ByRef WindowCaption As String) As Long

'// gibt das hwnd des Fensters zurück oder 0

Dim hwnd As Long



   hwnd = GetDesktopWindow



   '// erstes untergeordnete Window holen

   hwnd = GetWindow(hwnd, GW_CHILD)



   '// Windowtext prüfen

   Do Until InStr(GetTextFromWindow(hwnd),  WindowCaption) <> 0 Or hwnd = 0

      '// nächstes Window suchen

      hwnd = GetWindow(hwnd, GW_HWNDNEXT)

   Loop

   SearchWindowByCaption = hwnd

End Function









Private Function GetTextFromWindow(ByVal hwnd As Long) As String

Dim strBuffer As String

Dim lngLen As Long



   lngLen = GetWindowTextLength(hwnd) + 1

   strBuffer = Space$(lngLen)

   GetWindowText hwnd, strBuffer, lngLen

   strBuffer = Replace(strBuffer, Chr(0), "")

   GetTextFromWindow = strBuffer

End Function










Gruß
Gaga

___________________________________________________________________

Profilösungen für VB6
wenn nicht anders angegeben, sind alle Codebeispiele nicht getestet, nur getippt


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: