Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Разное
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 02.08.2017, 06:17
devz1k devz1k вне форума
Прохожий
 
Регистрация: 29.07.2017
Сообщения: 1
Версия Delphi: Delphi
Репутация: 10
Вопрос Многопоточное приложение

Доброго! Вот и моя очередь пришла просить помощи, не хватает моих знаний.

Есть программа для работы с определенными окнами, при запуске смотрит все запущенные окна и отсеевает по классу окна и добавляет их в ComboBox.
Код:
i:=0;
Wnd:=FindWindow(nil,nil);
while Wnd<>0 do
begin
GetClassName(Wnd,Cl,100);
if Cl='ElementClient Window' then
begin
GetWindowText(Wnd,Hndl,SizeOf(Hndl));
GetWindowThreadProcessId(Wnd,@window[i]);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,window[i]);
ReadProcessMemory(hProcess,ptr(BA),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$1C),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$28),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$6F4),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf),@Nick,sizeof( Nick),BC);
Form1.ComboBox1.Items.Add(Nick);
window[i] := Wnd;
inc(i);
end;
Handle всех нужных окон попадает в массив:
Код:
window: array[0..20] of THandle;
Раньше программа работала только с одним окном и обращалась к тому окну, которое было выбрано в ComboBox:
Код:
Wnd:=window[Form1.ComboBox1.ItemIndex];
GetWindowThreadProcessid(Wnd,@hProcess);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,hProcess);
Далее запускался поток в котором все крутилось и вертелось. А теперь подскажите как сделать так: Все нужные окна вместо ComboBox добавляются в CheckListBox, далее я сам чекаю нужные окна в CheckListBox и, соответственно, сколько окон я выбрал столько и запускается потоков. Каждый поток обращается к своему "чекнутому" окну. Уже неделю голову ломаю, выручайте!
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:41.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter