Функция GetWindowText

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

Платформа: Win 95/98, Win NT

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
Категория Окна
В начало.