1. Закрытие DOS-окна

Описание

После того, как Вы запускаете приложение MS-DOS из своей программы в Windows'95, на экране остается окно. Вы можете использовать API-функции для предотвращения этого: необходимо найти дескриптор (handle) нужного окна, подождать, пока программа закончит свою работу и закрыть окно, которое останется после нее.

Объявления

Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Const WM_CLOSE = &H10

Пример использования

Private m_sEXEName As String
Private m_sDosCaption As String

Public Sub RunDosApp()
Dim vReturnValue As Variant
Dim lRet As Long
Dim i As Integer

vReturnValue = Shell(m_sEXEName, 1)
AppActivate vReturnValue ' Activate EXE Window

Do
  Sleep (10000)
  lRet = FindWindow(vbNullString, m_sDosCaption)
  If (lRet <> 0) Then
    vReturnValue = SendMessage(lRet, WM_CLOSE, &o0, &o0)
    Exit Do
  End If
Loop
End Sub

 

                                                                   ОБСУДИТЬ СТАТЬЮ НА ФОРУМЕ