Показать сообщение отдельно

[Вопрос] Delphi, работа с хэндлами окон
  #1  
Старый 19.07.2009, 02:40
ex3me
Участник форума
Регистрация: 07.01.2009
Сообщений: 186
С нами: 9127098

Репутация: 166
По умолчанию [Вопрос] Delphi, работа с хэндлами окон

Имеется программа с такой вот "структурой хэндлов"

Как конкретно для такого примера правильно получить хэндл этой самой кнопки "Continue >>>"?

Перепробовал массу вариантов с FindWindow, FindWindowEx, gw_HWNDNext, gw_CHILD - тщетно. Возможно что-то делаю неправильно.

Пробовал получить текст из всех окон:

Код:
var
  Transfer : HWND;
  TransWnd : array[1..42] of HWND;
   d:string[255];

procedure GetTransHandle();
var
  i: integer;
begin
  Transfer := FindWindow(nil, PChar('Hard Disk Wipe Tool 2.35 build 1178'));
  TransWnd[1] := GetWindow(Transfer, GW_CHILD);
  for i := 2 to 10 do
  begin
    TransWnd[i] := GetWindow(TransWnd[i - 1], GW_HWNDNEXT);
    setLength(d,sendMessage(TransWnd[i],WM_GETTEXTLENGTH,0,0)+1);
    SendMessage(TransWnd[i],WM_GETTEXT, wParam(length(d)),lParam(@d[1]));
    writeln(d);
  end;
end;

begin
GetTransHandle();
readln;
end.
Выдало сплошную пустоту.

Есть какие-нибудь идеи?
 
Ответить с цитированием