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

See also  lenso.ai - an AI reverse image search platform
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist