[Muxa]

Благодаря Nyctos Kasignete,у меня получилось отыскать все дочерние окна. Пытался получить текст из она с чатом QIP, но не выходит. Там используется: Trichview. Делаю вот так:

Код:

var
  QIP, PageHandle, TabHandle, childHWND1, childHWND2, childHWND3: THandle;
  lpBuffer: PChar;
begin
  QIP := FindWindow(nil, PChar('Текст окна с чатом'));
  if QIP <> 0 then
  begin
    PageHandle := FindWindowEx(H, 0, 'TInfiPageControl.UnicodeClass', nil);
    if PageHandle <> 0 then
    begin
     TabHandle := FindWindowEx(PageHandle, StrToInt('$00060A4C'), 'TQipTabSheet.UnicodeClass',nil);
     if TabHandle <> 0 then
     begin
        childHWND1 := FindWindowEx(TabHandle, StrToInt('$00060A4C'), 'TMsgPanel.UnicodeClass', nil);
        if childHWND <> 0 then
        begin
childHWND2 := FindWindowEx(TabHandle, StrToInt('$00040A50'), 'TInfuPanel.UnicodeClass', nil);
        if childHWND2 <> 0 then
begin
        childHWND3 := FindWindowEx(TabHandle, StrToInt('$00030A68'), 'TRichView', nil);
        if childHWND3 <> 0 then
lpBuffer := GetMemory(2028);
          try
            SendMessage(childHWND3, WM_GETTEXT, 2048, Integer(lpBuffer));
            RichEdit1.Text := lpBuffer;
          finally
            FreeMemory(lpBuffer);

но не могу получить текст. Ни у кого других мыслей нет?((