Не могу найти Handle Edit'а в окне чужой программы

[nechto]

Ситуация следующая:
надо в окошке чужой программы в Edit куда вводится пассворд ввести соответствующий текст. Использую следующий код:
var
MyFormHandle, MyEditHandle: HWND;
begin
//ищем нужное окно
MyFormHandle := FindWindow(nil, 'Бла-бла "бла-бла"');
//ищем Edit
MyEditHandle := FindWindowEx(MyFormHandle,0,'Edit', nil); //находим edit
//посылаем текст
SendMessage(MyEditHandle, em_setsel, 0, longword(pchar('ТЭР-ПароЛЬ')));
end;
Окно он находит, а вот Edit никак не найдет. Как справиться?

[Stilet]

Значит Эдит не просто в том окне, а возможно в каком нить контеинере на окне, или ты неверно указал тип эдита. Поищи его через SPYXX или подобных программ

[nechto]

Спасибо, посмотрю.

[mihali4]

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

Значит Эдит не просто в том окне, а возможно в каком нить контеинере на окне, или ты неверно указал тип эдита. Поищи его через SPYXX или подобных программ

Нет, Виталий, здесь что-то в самом деле не то. Он прав. Перед этим такая тема рассматривалась.
Я проверял. Форма назначения - Form1+Edit1, больше ничего.
Из другой простенькой Form2+Button1 форма Form1 находится, можно поменять ей Caption, т.е. это точно именно та форма.
Edit же в ней можно найти ТОЛЬКО по содержимому, по классу поиск всегда безрезультатен.
Кстати, интересная штука - если поменять в Edit-е текст, то этот Edit при повторном поиске опять отыскивается по старому значению текста, которого уже нет.
Перерыл все, что у меня было в факах по этому вопросу, так и не смог осуществить поиск по классу.

[Stilet]

Нда? Ну я чесно говоря ищу только с помошью EnumWindow и потому горя не знаю, а FindWindow уже давно не рулю.

Кста, а Класс точно Edit, может Tedit?
Ану скиньте сюдыть экзешничек, я найду... через OllyDBG )))

[mihali4]

Кста, а Класс точно Edit, может Tedit?

Перебрал все возможные варианты и регистр тоже.
Вот рабочий вариант поисковой формы:

procedure TMyForm.Button1Click(Sender: TObject);
var h,sh: integer;
begin
h:= FindWindow(nil, 'SSS'); //находим окно по капшену
//SetWindowText(h, 'Ну, ты попал...'); //можно поменять капшен
Label1.Caption:=IntToSTr(h);//выводим хэндл окна
sh:= FindWindowEx(h,0,0,'Edit1'); //находим edit по тексту в нем
Label2.Caption:=IntToSTr(sh);//выводим хэндл эдита
SendMessage(sh, WM_SETTEXT, 0, LParam(PChar('MyText222')));//засылаем новый текст в эдит 
Application.ProcessMessages;
end;

[nechto]

Вся проблема в том, что текста в Edit нет

[nechto]

Упс.. Виноват, всем огромное спасибо, все работает!!!

[mihali4]

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

Упс.. Виноват, всем огромное спасибо, все работает!!!

С чего вдруг сработало?

[Stilet]

С чего вдруг сработало?

Заинтриговал и...