Считать текст с окна

[WennY]

Допустим есть такое окошко: http://imageshack.us/photo/my-images/69/averz.jpg/

Нужно тупо считать весь текст с него. Хэндл окна нахожу без проблем, но как текст вытащить? Как найти хэндл формы текста? Перебирал - нифига не подобрал Через WinSight не совсем понял, как вытянуть указатели на отдельные элементы..

То, что удалось склепать:

program Project1;

uses
    Windows, Messages, Dialogs, Classes, SysUtils;

var
  H, H2: HWND;
  l: integer;
  s: ansistring;
begin
  H:=FindWindow('Sym_Common_Scan_Window', nil);
  H2:=FindWindowEX(H, 0, 'StaticText', nil);

  //в случае удачи выводим первое окно
  if h<>0 then
  begin
    SetLength( s, 100 );
    l := SendMessage( h, WM_GETTEXT, 100, lparam( @s[ 1 ] ) );
    showmessage(Copy( s, 1, l ));
  end;

  //в случае удачи выводим второе окно
  if h2<>0 then
  begin
    SetLength( s, 100 );
    l := SendMessage( h, WM_GETTEXT, 100, lparam( @s[ 1 ] ) );
    showmessage(Copy( s, 1, l ));
  end;
end.

Заранее спасибо

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

не правилно читаете текст:

var
 Buff:array[1..255] of Char;
 s:string;
begin
 GetWindowText(HM2,@Buff,SizeOf(Buff));
 s:=StrPas(Buff);
 ShowMessage(s);
end;

[WennY]

Орет на строку s:=StrPas(Buff):

[Error]Incompatible types: 'Array' and 'PAnsiChar'

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

массив из PChar должен быть. Мой фэил

[WennY]

Спасибо, сделал, но он выводит тока самую первую надпись - сканирование по требованию. Из программы spy++ я узнал, что более никаких label'ов окно не имеет, как в таком случае считать текст с неё?

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

Думаю, что второй параметр в FindWindowEx не правильно задан.

hwndChildAfter
Identifies a child window. The search begins with the next child window in the Z order. hwndChildAfter must be a direct child window of hwndParent, not just a descendant window.
If hwndChildAfter is NULL, the search begins with the first child window of hwndParent.
Note that if both hwndParent and hwndChildAfter are NULL, the function searches all top-level windows.

Тебе нужно указать nil

hm2:=FindWindowEx(hm,nil,'StaticText',nil);

[WennY]

Второго параметра там нет, там вообще больше ничего нет кроме одного класса.

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

Для непонятных

If hwndChildAfter is NULL, the search begins with the first child window of hwndParent.

По этому там НУЖНО указать nil..

[WennY]

Блин, да указывал я ему ноль, пофиг ему, пустую строку возвращает :|