devxlogo

CloseDosWindow – Close a Ms-Dos console window

CloseDosWindow – Close a Ms-Dos console window

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _    lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _    hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _    lParam As Any) As LongConst WM_CLOSE = &H10' close a MS-DOS window'' if Caption is omitted, it randomly closes one' of the opened Dos windowsSub CloseDosWindow(Optional Caption As Variant)    Dim hWnd As Long        ' if argument is omitted, don't care for window caption    If IsMissing(Caption) Then Caption = vbNullString        ' find the window    hWnd = FindWindow("ConsoleWindowClass", Caption)    ' close it by sending it a WM_CLOSE message    If hWnd Then        SendMessage hWnd, WM_CLOSE, 0, ByVal 0    End IfEnd Sub

devx-admin

Share the Post: