[devz1k]

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

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

[lmikle]

Ну и в чем проблема?
При добавлении в список, сохраняй хэндл окна и потом, при запуске потоков, просто передавай его в поток. Типа:

Код:

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 я не помню, так что проверь там...