[nixon232]

Есть такое нечто с Классом xxxListClass
listclas.png
Задача максимум - получить содержимое.
Задача минимум - Получить кол-во строк.

Код:

  AParentWindow := 0;
  GridWND := 0;
  EnumWindows(@FindGrid, 0);
  Label1.Caption := Format('Window Handle: %d'+sLineBreak+'Grid Handle: %d', [AParentWindow, GridWND]);
  if GridWND <> 0 then
  begin
   i:= ListView_GetItemCount(GridWND);
   ShowMessage(IntToStr(i));
   i:=SendMessage(GridWND,LVM_GETITEMCOUNT,0,0);
     ShowMessage(IntToStr(i));
  end;

в обоих случаях I=0. Смущает ListView, но если не он, то что использовать?

[dr. F.I.N.]

Попробуйте получить имя класса этого окна. Может имя класса подскажет куда смотреть.

Код:

  if Boolean(GetClassName(hWnd, aName, 256)) then 
    Label2.Caption := 'ClassName :  ' + string(aName) 
  else 
    Label2.Caption := 'ClassName :  not found';

[nixon232]

Сообщение от dr. F.I.N.

Попробуйте получить имя класса этого окна. Может имя класса подскажет куда смотреть.

имя класса родительского окна все тот же #32770. нахожу его в EnumWindows, потом пихаю его в EnumChildWindows и нахожу свой Grid
по MSDN это дефолтный DlgBox

The following table describes the system classes that are available only for use by the system. They are listed here for completeness sake.

Class Description
ComboLBox The class for the list box contained in a combo box.
DDEMLEvent The class for Dynamic Data Exchange Management Library (DDEML) events.
Message The class for a message-only window.
#32768 The class for a menu.
#32769 The class for the desktop window.
#32770 The class for a dialog box.
#32771 The class for the task switch window.
#32772 The class for icon titles.

имя класса таблицы писал ранее, это xxxListClass, где ххх - имя приложения.

Все, что интересного нашел Windows Detective если скормить класс

Код:

 <windowPropsList>
        <windowProp>
            <name>ListControl</name>
            <data>0x0DFBE404</data>
        </windowProp>
        <windowProp>
            <name>UxSubclassInfo</name>
            <data>0x0D7953F0</data>
        </windowProp>
    </windowPropsList>

Может есть какой-то лучше инструмент для исследований? Хотел найти Spy++ Отдельно, но не смог.

[dr. F.I.N.]

Не люблю догадки гадать. Есть возможность это приложение скачать для экспериментов?

[nixon232]

Скачать, то можно, но я не уверен, что вы будете этим заморачиваться.
Приложение PokerStars. но чтобы добраться до нужного окна, нужна регистрация

[nixon232]

[hided...]

[dr. F.I.N.]

Мда, судя по всему задача не так проста. И Вы не единственный, кто ищет решение. По запросу PokerStarListClass много интересного и намек на решение я увидел только один.

Поставил хук на CreateFontIndirect. Отключил сглаживание.
Дальше через самописный OCR получаю текст.

(c) Игорь007

Хотя, на мой взгляд, это не то решение, которого Вы ожидали.

Даже не знаю, имеет ли смысл копать в этом направлении.

[nixon232]

Да, непростой путь, но спасибо и на том. Плохо только что Delphi и OCR Вещь мало совместимая. Есть, конечно, набор компонентов энтузиаста, но навыков пока не хватает применить его наработки. Более простые варианты распознавания, оставляют желать лучшего.
Спасибо за пищу для размышлений.

[nixon232]

Подскажите где нужно перехватывать ExTextOut?