Handle окна или как выбирать между окнами

[Darkil]

Помогите пожалуйста я уже весь мозг сломал
как мне сделать переход от окна к окно через ComboBox

Суть вот в чём, я запускаю программу она находит нужное мне окно, окон может быть много как только окно найдено автоматически я считываю значение из памяти имени, допустим персонажа и меняю название окна, на название его имени,
после чего я вывожу найденные окна которым уже присвоено имя из памяти в ComboBox ' sComboBox1.Items.Add(''+Nm+'') ;

Вот после этого мне нужно чтобы при выборе из списка 'ComboBox' имени персонажа и нажатии на кнопку я мог открыть процесс считывания памяти конкретно из этого окна

Заранее Спасибо

Нужно чтобы вот этот процесс применялся к выбранному окну в ComboBox

var
Client Window:HWND; //Handle клиента
  Processed:Integer;
  process:Integer; //Идентификатор объекта
  Window Name: integer;
  Client Window := FindWindow(nil, PChar('Окно которое выбрано по имени персонажа в ComboBox'));   //Находим Handle окна
GetWindowThreadProcessed(Client Window,@Processed); //Получаем И.П.
process := OpenProcess(PROCESS_ALL_ACCESS,False,Processed); //Открываем процесс с возможностью записи

Код определения окна и чтения из памяти имени персонажа

procedure TForm1.FormActivate(Sender: TObject);
    var
    Wd : HWnd;
  buf,Nm: array [0..255] of char;
  i: integer;
  PID: dword;
  lpBuffer:DWord;
  WNik: array[0..255] of widechar;
  s: WideString;
  NoB: SIZE_T;
  LvL,ClassID:Integer;
  Lvel,WClassID:DWord;
 
begin
   i:= 0;
    smemo2.Clear;         // Очистим список перед началом поисков
    Wd:=FindWindow(0,0);          // Найдем первое окно верхнего уровня любого класса
    While (Wd<>0) do              // Если такое окно существует
    Begin
        GetClassName(wd,@buf,100);    //Получаем класс окна (Чувствителен к регистру)
        if buf='Имя Окна Window' then  // Если наше
          begin
            GetWindowThreadProcessId(wd, @PID);
            hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);
//-----читаю-память---------------------------------------------------------------
            ReadProcessMemory (hProcess, Pointer($00D6F84C), @lpBuffer, sizeof(lpBuffer), NoB);
            ReadProcessMemory (hProcess, Pointer(lpBuffer+$28), @lpBuffer, sizeof(lpBuffer), NoB);
            ReadProcessMemory (hProcess, Pointer(lpBuffer+$6E8), @lpBuffer, sizeof(lpBuffer), NoB);
            ReadProcessMemory (hProcess, Pointer(lpBuffer+StrToInt('$0')), @WNik, sizeof(WNik), NoB);
            s := WNik;
//------------------------------------------------------------------------------------
            //Делаем Заголовок окна по имени игрока
            setWindowText(Wd,(s));
            GetWindowText(Wd,Nm,255);       //получаем название окна
            smemo2.Lines.Add(s);       
            smemo2.Lines.Add('Class: '+buf);         // Добавим в список
            smemo2.Lines.Add('Window: '+Nm);
            smemo2.Lines.Add('HWnd: '+IntToStr(Wd));
             Form1.sComboBox1.Items.Add(''+Nm+'') ;// Вы вожу в ComboBox1
            inc(i);
            CloseHandle(hProcess);
            hProcess:= 0;
 
          end;
        Application.ProcessMessages;         // Дадим возможность поработать другим
        Wd:=GetNextWindow(Wd,GW_HWNDNEXT);   // Найдем следующее окно в системе.
 
    End;
    smemo2.Lines.Add('Найдено окон: '+inttostr(i));
 
end;

[min@y™]

Скажи честно: тебе этот код по телефону диктовали?

[northener]

Сообщение от min@y™

Скажи честно: тебе этот код по телефону диктовали?

Да не. Скорее на помойке нашел.