[devz1k]

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

Есть программа для работы с определенными окнами, при запуске смотрит все запущенные окна и отсеевает по классу окна и добавляет их в ComboBox.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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 всех нужных окон попадает в массив:

Код:

1	window: array[0..20] of THandle;

Раньше программа работала только с одним окном и обращалась к тому окну, которое было выбрано в ComboBox:

Код:

1 2 3

Wnd:=window[Form1.ComboBox1.ItemIndex]; GetWindowThreadProcessid(Wnd,@hProcess); hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,hProcess);

Далее запускался поток в котором все крутилось и вертелось. А теперь подскажите как сделать так: Все нужные окна вместо ComboBox добавляются в CheckListBox, далее я сам чекаю нужные окна в CheckListBox и, соответственно, сколько окон я выбрал столько и запускается потоков. Каждый поток обращается к своему "чекнутому" окну. Уже неделю голову ломаю, выручайте!