title image


Smiley Re: Externe Fenster schließen
Ist prinzipiell recht einfach, man muß das 'Handle' erfragen und dann per 'PostMessage' eine Message absetzen.Beispiel:Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As LongPrivate Declare Function PostMessage Lib "user32" Alias _ "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As LongPrivate Sub FensterSchliessen() Dim FensterHandle As Long Dim Ergebnis As Long FensterHandle = FindWindow(vbNullString, "xxxxxx") If FensterHandle 0 Then Ergebnis = PostMessage(wHandle, &H10, 0&, 0&) If Ergebnis = 0 Then MsgBox "Fehler !" Else MsgBox "Anwendung xxxxxx ist nicht offen !" End IfEnd Subxxxxxx steht für den Fenstertitel (Caption) der Anwendung.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: