Функция AllocConsole

Declare Function AllocConsole Lib "kernel32" () As Long

AllocConsole создает консоль для вызывающего процесса

Функция не имеет параметров

Пример

' Также смотри пример console.zip

' Выводим консоль с заданным текстом
' Добавьте в General Declaration код
Private hConsole As Long

Private Sub Form_Load()

Dim txt As String
Dim num_written As Long

If AllocConsole() Then
  hConsole = GetStdHandle(STD_OUTPUT_HANDLE)

  If hConsole = 0 Then MsgBox "Couldn't allocate STDOUT"

' Приготовим текст
   txt = "******************************************" & vbCrLf & _
         "*   Warning: Do not close this window!   *" & vbCrLf & _
         "* Close the VB program's window instead. *" & vbCrLf & _
         "******************************************" & vbCrLf
WriteConsole hConsole, txt, Len(txt), num_written, vbNullString

' Делаем форму видимой
   Me.Show
   SetFocus
Else
   MsgBox "Couldn't allocate console"
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
CloseHandle hConsole
FreeConsole
End Sub

Смотри также

FreeConsole, GetStdHandle

Категория

Консоль

Реклама