Проблема с получением текста из label чужого окна, при том что, текст и класс уже известны.

[Человек_Борща]

Всем привет!

По сабжу:
При исключении программы вызвается системное окно класса "#32770"
там заголовок ошибки, и текст в надписи. Класс надписи "Static".

Собственно надо заполучить текст из надписи.

Пробовал вот так:

procedure TForm1.TimerTimer(Sender: TObject);
var
  wnd, wnd2: HWND;
  len: Integer;
  Buff1: array[0..255] of Char;
  //Buff2: array[0..255] of Char;
  s:string;
begin
  Wnd := FindWindow('#32770', nil);
  if wnd <> 0 then
  begin
    GetWindowText(wnd, Buff1, SizeOf(Buff1));
    Wnd2 := FindWindowEx(wnd, 0, 'Static', nil);
    len:=SendMessage(wnd2,WM_GETTEXTLENGTH,0,0);
    SetLength(s,len+1);
    SendMessage(wnd2,WM_GETTEXT,len+1,Integer(s));
    //Memo1.Lines.Add(s);
    //GetWindowText(wnd2, Buff2, SizeOf(Buff2));
    ListBox.Items.Add('Найденно окно: ' + Buff1 + ' с текстом: ' + s);
    Timer.Enabled:=False;
  end;
end;

Но этот код забирает только заголовок окна (Класс #32770).
В переменной S где должна быть текст из Static , ничего нет. т.е. она пустая.

Почему? и как правельно надо зделать? Прошу помощи....

[Stilet]

Правильно. Ты нашел окно

Wnd := FindWindow('#32770', nil);

А теперь нужно найти окно в этом окне

Wnd := FindWindowEx(Wnd,0,'TStatic', nil);

И это только в том случае если там еще каких контейнеров нет. Тут на помощь придет утилита SpyХХ, которая покажет вхождения окна текста в форму.