Öffnen eines minimierten Fensters!

[BruS]

Hallo Zusammen!

Hoffe ihr könnt mir weiterhelfen.
Annahme:
Hab im Visual Basic eine Form mit einem Button, das Programm Notepad ist ebenfalls geöffnet, jedoch minimiert in der Taskleiste.

So jetzt möchte ich wenn ich den Button drücke, als erstes mal überprüfen ob Notepad bereits geöffnet ist, wenn ja soll das bereits geöffnete Notepad nicht nocheinmal geöffnet werden sondern soll das bereits vorhandene wieder aus der Taskleiste heraus maximieren, falls es noch nicht offen ist soll es geöffnet werden.

Danke, für eure Hilfe, komm einfach nicht drauf.

mfg
BruS

 

[dr_pepper]

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_NORMAL = 1


Private Sub cmdCheck_Click()

    Dim hWnd As Long


hWnd_:
        hWnd = FindWindow("notepad", vbNullString)      'per findwindow die handle vom notepad bekommen - falls vorhanden
        
        If hWnd > 0 Then                                'wenn fenster gefunden wurde
            ShowWindow hWnd, SW_NORMAL                  'fenster öffnen
        Else                                            'sonst
            Shell ("notepad.exe")                       'notepad öffnen
            GoTo hWnd_                                  'wieder zum anfang - um notepad zu maximieren
        End If
    
End Sub

nicht unbedingt das sauberste - funktioniert aber perfekt

 

[BruS]

Wow, Danke für die rasche Antwort.

Hat super funktioniert.

Danke nochmal.