Пжл, из Экселя прочитать СтатусБар другого прилож. через API

[andyst]

Пжл, из Экселя или Ворда прочитать СтатусБар другого прилож. через API функции. Заранее благодарен

[GSerg]

Ну даже в подпись вопрос вставил, вот ведь упорство...

Копать сюда:
FindWindow
EnumChildWindows, пока GetClassName не вернёт "msctls_statusbar32"
SendMessage (просмотри, для чего нужны константы SB_)
В общем, есть куда копать

[andyst]

Спасибо. А где можно прочитать про константы SB_ для
SendMessage? Может кто примером поможет????

[GSerg]

Нееееет, сам, сам
http://www.activevb.de/rubriken/apiview ... ereng.html

Это ApiViewer. Харошая вещь...
А значения констант - www.msdn.microsoft.com

[andyst]

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) 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

Private Const WM_USER As Long = &H400
Private Const SB_GETTEXTA As Long = (WM_USER + 2)
'Private Const SB_GETTEXTW As Long = (WM_USER + 13)


Dim tWnd As Long, bWnd As Long

Private Sub CommandButton1_Click()

Dim rtl As Long
Dim MyStr As String

'Get the my window handle
tWnd = FindWindow("MeClassName", vbNullString)
'Get the subwindow handle
bWnd = FindWindowEx(tWnd, ByVal 0&, "msctls_statusbar32", vbNullString)

rtl = SendMessage(bWnd, SB_GETTEXTA, -1, ByVal CStr(Text1.Text))
'Create a buffer
MyStr = String(GetWindowTextLength(bWnd) + 1, Chr$(0))
'Get the window's text
GetWindowText bWnd, MyStr, Len(MyStr)
MsgBox MyStr

End Sub