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.