Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Скопировать содержание чужого ListBox'a

Автор: max-@ 2.10.2007, 23:42

Скопировать содержание чужого ListBox'a находящегося в другой программе

пробывал так

Код


  Wnd := GetWindow(Wnd, GW_CHILD);
  while Wnd <> 0 do
  begin
    Wnd := GetWindow(Wnd, gw_hWndNext);

    SetLength(wclass,5);
    GetClassName(Wnd, @wclass[1], Length(wclass)+1);

    GetWindowText(Wnd, PChar(lpszText), sizeof(PChar(lpszText)));
    setLength(lpszText, getWindowTextLength(Wnd)+1);
    sendMessage(Wnd, WM_GETTEXT, wParam(length(lpszText)), lParam(pChar(lpszText)));

    Memo1.Lines.Add(wclass + ' >> ' + lpszText);
  end;

но читается содержание только Label'ов

А мне нужно прочитать ListBox.

Автор: volvo877 3.10.2007, 01:17

Используй LB_GETCOUNT, потом LB_GETTEXT

Автор: BaD_SeCt0R 3.10.2007, 01:31

Цитата(max-@ @ 2.10.2007, 23:42

)

GetWindowText

Это для заголовков окон (Caption).

Автор: max-@ 3.10.2007, 02:13

Код


    cursel := SendMessage(Wnd, LB_GETCURSEL, 0, 0);
    SendMessage(Wnd, LB_GETTEXT, cursel, LPARAM(@lpszText));

нашел в теме данной код он тоже не работает (

Автор: volvo877 3.10.2007, 02:21

Вот тут я приводил вполне рабочий код:
http://forum.sources.ru/index.php?showtopic=173388&view=findpost&p=1467367

Автор: max-@ 3.10.2007, 09:33

to volvo877
код работает

но только с приложением из делфи

а с другой с которой мне надо нет(

Какие компонеты могут содержать таблицу? И как их можно прочесть? НАПРАВТЕ плиз!

Автор: Alix 3.10.2007, 10:28

Цитата

Какие компонеты могут содержать таблицу? И как их можно прочесть? НАПРАВТЕ плиз!

Чтобы узнать что за контрол отображает список, воспользуйся InqSoft Windows Scanner'ом http://s0m.narod.ru/iws_inst.zip

Автор: Alix 3.10.2007, 10:28

Цитата

Какие компонеты могут содержать таблицу? И как их можно прочесть? НАПРАВТЕ плиз!

Чтобы узнать что за контрол отображает список, воспользуйся InqSoft Windows Scanner'ом http://s0m.narod.ru/iws_inst.zip

Автор: max-@ 4.10.2007, 07:06

Там написано TRS_ListBox