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

 


   Сайт  
   Исходники  
   Компоненты  
   Статьи  
   FAQ  
   Поиск по исходникам  
   Футболки  

Вернуться   Форум по программированию Delphi Sources > Все о 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 и, соответственно, сколько окон я выбрал столько и запускается потоков. Каждый поток обращается к своему "чекнутому" окну. Уже неделю голову ломаю, выручайте!
Ответить с цитированием
  #2  
Старый 02.08.2017, 19:04
Аватар для lmikle
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 6,872
Репутация: 49086
По умолчанию

Ну и в чем проблема?
При добавлении в список, сохраняй хэндл окна и потом, при запуске потоков, просто передавай его в поток. Типа:
Код:
var
  i : integer;
  thrd : TMyThread;
begin
  for i := 0 to CheckListBox.Items.Count-1 do
    if CheckListBox.Checked[i] then
      begin
        thrd := TMyThread.Create(True);
        thrd.WndHandle := THandle(CheckListBox.Items.Objects[i]);
        thrd.Resume;
      end;

соответсвенно, при добавлении окон в список пользуем AddObject() и у потока надо иметь соотв аттрибут WndHandle.

PS. точно иерархию свойств в TCheckListBox я не помню, так что проверь там...
Ответить с цитированием
Ответ



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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2017

ВКонтакте   Facebook   Twitter