Ausgeblendete Fenster finden,zeigen
19.06.2008 11:35:00
chris
ich habe eine frage.Ich verwende z.b diesen Code um Windows fenster auszublenden.
Mit einem anderen Code kann ich dieses aktuell ausgeblendete Fenster wieder einblenden.
Aber wo steht das Fenster wenn es ausgeblendet ist ? Also gibt es die möglichkeit eine Liste von allen ausgeblendeten fenstern anzuzeigen bzw. alle wieder auf einmal auszublenden ?
Vielen Dank im vorraus für eure Tipps !
gruß Chris
zum Ausblenden
wHandle = FindWindow(vbNullString, "testfenstername")
lResult = ShowWindow(wHandle, SW_HIDE)
zum Einblenden
wHandle = FindWindow(vbNullString, "testfenstername")
lResult = ShowWindow(wHandle, SW_SHOW)
So zum Beispiel blende ich 2 Fenster aus und kann auch alle einblenden da ich im beispiel beide fensternamen weiß.Wie kann ich jetzt alle ausgeblendeten fensternamen ermitteln ?
Private Declare
Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare
Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Sub aus1()
wHandle = FindWindow(vbNullString, "testfenster.txt")
lResult = ShowWindow(wHandle, SW_HIDE)
End Sub
Sub aus2()
wHandle = FindWindow(vbNullString, "Rechner")
lResult = ShowWindow(wHandle, SW_HIDE)
End Sub
Sub ein1()
wHandle = FindWindow(vbNullString, "testfenster.txt")
lResult = ShowWindow(wHandle, SW_SHOW)
End Sub
Sub ein2()
wHandle = FindWindow(vbNullString, "Rechner")
lResult = ShowWindow(wHandle, SW_SHOW)
End Sub