Многопоточное приложение

[devzik111]

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

Есть программа для работы с определенными окнами, при запуске смотрит все запущенные окна и отсеевает по классу окна и добавляет их в 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 и, соответственно, сколько окон я выбрал столько и запускается потоков. Каждый поток обращается к своему "чекнутому" окну. Уже неделю голову ломаю, выручайте!

[Sciv]

Делаете наследника от TThread с приватным свойством WindowID, которое передаёте в поток при инициализации экземпляра класса (переопределив метод Create):

TMyThread = class (TThread)
private
  WindowID: HWND; // или какой там у Вас тип используется
public
  constructor Create(WinID: HWND); overload;
end;

constructor TMyThread.Create(WinID: HWND); 
begin
  WindowID := WinID;
  inherited Create();
end;

Соответственно в Execute потока находите нужное по WindowID и работаете с ним.

Главное - не забыть про Synchronize.

[devzik111]

Спасибо! Я уже почти у цели)
И еще такой вот вопрос: Как в Execute потока указать именно на нужное окно? Получается, что чекаю 2 окна в CheckListBox, запускаются 2 потока, но оба в одном окне, которое последнее в CheckListBox.

[Sciv]

Сообщение от devzik111

Как в Execute потока указать именно на нужное окно?

Можно просто пробегать по всем открытым на экране окнам в поисках нужного хендла. Того самого, который передаёте в поток при создании оного. Нашёл - обработал.

Сообщение от devzik111

запускаются 2 потока, но оба в одном окне

Что это значит - я не очень понял. Я так понимаю, 2 потока обрабатывают только последнее окно из списка?

[devzik111]

for i := 0 to Form1.CheckListBox1.Count - 1 do
if CheckListBox1.Checked[i]
then begin
Wnd := window [i];
TMyThread.Create(wnd);
Form1.Memo1.Lines.Add('Handle ' + IntToStr(wnd));

Вот таким циклом запускаю потоки, но... В Мемо он записывает хендлы всех чекнутых в CheckListBox окон, то есть: если отметил 3 окна, то в мемо запишет:
handle 1
handle 2
handle 3
А вот потоки запускаются только с последним хендлом, то есть с 3. И получается запускается 3 потока и все 3 обращаются к 3му окну. Вот такая беда

[Sciv]

Покажите код Execute потока.

[devzik111]

procedure TMyThread.Execute;

begin

  GetWindowThreadProcessId(Wnd, @hProcess);
  hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, hProcess); 
  Name := Form1.CheckListBox1.Items[v]; 
  ...
// Читаем информацию с окна
  ...
  Synchronize(Info);
  Synchronize(WND);

end;

procedure TMyThread.Info; 
 begin
   Form1.Memo1.Lines.Add(' [' + Name + '] Инфо: ' + Info);
 end;

procedure TMyThread.WND; 
 begin
   Form1.Memo1.Lines.Add(' [' + Name + '] Хендл в потоке: ' + IntToStr(Wnd));
 end;

Результат в Мемо:

[Name3] Инфо: 10 // Name всегда последнего окна
[Name3] Инфо: 10 // Вся информация взята из 3 окна.
[Name3] Инфо: 10 //
[Name3] Хендл в потоке: 3147182 //
[Name3] Хендл в потоке: 525912 // А вот хендлы какие надо.
[Name3] Хендл в потоке: 6620686 //

[Slym]

Сообщение от devzik111

[CODE]
procedure TMyThread.Execute;
begin
GetWindowThreadProcessId(Wnd, @hProcess);
hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, hProcess);
Name := Form1.CheckListBox1.Items[v]; <<<<ТАК НЕЛЬЗЯ
...
// Читаем информацию с окна
...
Synchronize(Info);<<<<Synchronize вероятно лишний
Synchronize(WND);<<<<Synchronize вероятно лишний
end;

Synchronize налепил там где ненадо... а где надо его нет
тебе в первом же посте показали один из способов передать параметры в поток

[Sciv]

GetWindowThreadProcessId(Wnd, @hProcess);
hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, hProcess); 
Name := Form1.CheckListBox1.Items[v]; <<<<ТАК НЕЛЬЗЯ
...
// Читаем информацию с окна
...

Вот это всё в отдельную private-процедуру, например DoWork. А в теле Execute так:

while not terminated do
  Synchronize(DoWork);

[eoln]

Сообщение от Sciv

Вот это всё в отдельную private-процедуру, например DoWork. А в теле Execute так:

while not terminated do
  Synchronize(DoWork);

Тогда нет смысла в многопоточности, всё будет выполнятся в родительском потоке