DevProg: Блог для программистов

Секреты программирования. Примеры разработки. Обзоры программёрского софта, блогов и форумов и просто полезные советы!

Как скопировать каждый элемент чужого ListBox в свой ListBox ?

Posted by devprog на Февраль 4, 2009

Вот небольшой пример на чистом WinAPI, показывающий то, как этого можно достичь:

procedure TForm1.Button1Click(Sender: TObject);
var
h:DWORD;
i,k:integer;
buffer:array [0..20] of char;
begin
h:=FindWindow(nil,’WTF??? Катлета!’); // Ищем главное окно
 h:=FindWindowEx(h,0,’TListBox’,nil); // ищем дочернее окно класса TListBox
  i:=SendMessage(h,LB_GETCOUNT,0,0); //берём колво элементов
   for k:=0 to i-1 do begin //цикл от 0 до колва элементов
    SendMessage(h,LB_GETTEXT,k,integer(@buffer)); // берём текст ячейки
    ListBox1.Items.Add(string(buffer)); // кладём его в свой ListBox
   end
end;

В данном примере, класс, который мы ищем среди дочерних окон – называется TListBox. В вашем случае, класс может называться подругому. Класс можно посмотреть такими программами как SPYXX.EXE из пакеты Visual Studio или программой Sign of Misery от CyberManiac.

Прилагаю исходные коды: lb.rar

Реклама

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s

 
%d такие блоггеры, как: