Работа с чужим окном

[brownb]

Подскажите куда копать,нужно сделать не большую программу для работы с чужим окном которая будет делать всего три действия 1 втавить текст в едит 2 выбрать из листбокс нужный нужную строку 3 нажать на кнопку.Так вот я так понимаю нужно както отследить все эти действия?Если да то чем?

[brownb]

нашел пример

var
UnPro : HWND;
PassText: HWND;
OKbutton: HWND;

begin
UnPro:= FindWindow(nil, 'Form1'); //Где меню с вводом пароля
PassText := FindWindowEx(UnPro, 0, 'TEdit', nil); // Где само поле на этом меню

//Тут будет цикл и он будет зависеть от количества паролей
SendMessage(PassText, WM_SETTEXT, 0, lParam(LPCTSTR('НАШ ПАРОЛЬ'))); //Пихаем пароль
OKbutton :=FindWindowEx(UnPro, 0, 'TButton', nil); //Ищем сокровенную OK
SendMessage(OKbutton, BM_CLICK, 0, 0); //Жмёт ОК принять пароль (кстати если пароль подойдёт то значение этой функции и будет обрабатываться как выход из цикла)
end;

Он работает,только с программа созданными на делфи.а как быть в моем случае?как узнать на чем написана программа?

[brownb]

Разобрался нашел классы компонентов
Пробую делать так

procedure TForm1.Button2Click(Sender: TObject);
var Wnd,EdWnd: HWND;
      j: integer;
begin
  Wnd:=FindWindow(nil, 'JL studio');
  if Wnd=0 then
     begin
ShowMessage('Не найдено окно ='); exit;
     end;
       EdWnd:=0;
  for j:=1 to 8 do
      begin
  EdWnd:=FindWindowEx(Wnd,EdWnd,'TcxComboBox',nil);
  if EdWnd=0 then break;
  SendMessage(EdWnd, WM_SETTEXT, 0, Integer(PChar('erere')));
      end;
end;

Так как там несколько одинаковых компонентов как указать нужный мне?

[brownb]

var panel,Wnd,EdWnd,com: HWND;
      j: integer;
begin
  Wnd:=FindWindow(nil, 'test');

  if Wnd=0 then
     begin
ShowMessage('Не найдено окно ='); exit;
     end;
       EdWnd:=0;
  for j:=1 to 8 do
      begin
  panel := FindWindowEx(Wnd, 0, 'TPanel', nil);
  Memo1.Lines.Add(IntToStr(panel) + ' - панель');
   com := FindWindowEx(Wnd,panel, 'TcxComboBox', nil);
  Memo1.Lines.Add(IntToStr(panel) + ' - комбо');
  EdWnd:=FindWindowEx(Wnd,EdWnd,'TcxComboBox',nil);
  if EdWnd=0 then break;
  SendMessage(EdWnd, WM_SETTEXT, 0, Integer(PChar('erere')));
      end;
end;

Возвращает
132546 - панель
132546 - комбо

В чем проблема?