Функция GetWindowText

Declare Function GetWindowText Lib "user32"  _
    Alias "GetWindowTextA" (ByVal hwnd As Long,  _
    ByVal lpString As String, ByVal cch As Long)  _
    As Long

GetWindowText читает текст заголовков окна, если он имеется. Если окно является элементом управления, функция возвращает его текст. Функция может работать с любым окном, а не только в ваших программах. Текст содержится в переменной строке lpString.

Возвращаемое значение

В успешном случае функция возвращает длину строки, в случае ошибки возвращается 0

Параметры

hwnd

Дескриптор окна

lpString

Переменная строка, содержащая текст заголовка окна

cch

Длина в символах lpString

Пример

' Читаем текст заголовка Form1
Dim titlebar As String  ' текст заголовка
Dim slength As Long  ' длина возвращаемой строки

' создаем буфер для приема текста
titlebar = String$(256, " ")
slength = GetWindowText(Form1.hWnd, titlebar, 255)
' получаем текст заголовка
' извлекаем информацию из буфера
titlebar = Left$(titlebar, InStr(titlebar, vbNullChar) - 1)
Debug.Print "Заголовок окна: "; titlebar

Смотри также

GetWindowTextLength, SetWindowText

Категория

Окна