WinAPI

[vvs_adm]

Option Explicit

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long
Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Dim RetVal As Long
Dim hWndw As Long
Dim lpText As String

Private Sub Form_Resize()

hWndw = GetActiveWindow()
RetVal = GetWindowText(hWndw, lpText, CLng(255))
MsgBox (lpText)

End Sub

Ну почему же MsgBox выдает пустую строку при изменении размеров окна

[GSerg]

Ой кошмар какой... Интересно, почему не рушится?..

Надо же буфер-то отводить под строку...

lpText=space$(255)
GetWindowText hWndw, lpText, len(lptext)

[vvs_adm]

Спасибо...
Тока почему-то
lpText = Space$(255)
Can't assign to array

[alibek]

Мать моя женщина

Надо объявлять ByVal lParam As String.

Если объявляешь, как Any, то тогда Dim lpText(0 To 255) As Byte. Или Dim lpText As Long, и производишь AllocMemory.