Добрый день, а может и ночь дорогие форумчане) У меня возникла проблема с выводом заголовка окна. Нашёл хэндл окна и через функцию GetWindowText вытаюсь получить текст заголовка, но возвращается мне лишь длина этого заголовка (GetWindowTextLength). Перечитал кучу форумов и исходников, вроде всё правильно но результат всё тот-же. Что мне делать??? Очень нужна ваша помощь!
| Код |
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
Dim hndl As String
Dim s As String
Dim с As Integer
Private Sub Command1_Click()
hndl = FindWindow(vbNullString, "TestForm") ' определем хэндл окна
c = GetWindowTextLength(hndl) 'получаем длину заголовка
s = Space(c + 1) 'создаем строку-приемник для заголовка
c = GetWindowText(hndl, s, c + 1) 'получаем заголовок
MsgBox c
End Sub
|
Вот вот такой простой кодец а резултат получить не могу  |
. Я поменял String на Long но проблема не решилась!