Доброе ... (нужное подставить)!

Есть такая проблемка.... Чужая программа работает... Известно только то, что вы знаете о любой запущенной вами проге - как она выглядит в Диспетчере задач и ее заголовок... В ней есть Edit (поле для занесения информации)... Необходимо подключится к окну и внести нужную информацию в этот Edit... И не в какой-нибудь, а именно нужный (их в окне несколько)...

Автор: Brutus (http://coding.pp.ru/)
procedure TForm1.Button1Click(Sender: TObject);
var
CurrWnd:HWND;
begin
while true do
begin
CurrWnd:=GetForegroundWindow;
SetWindowText(CurrWnd, 'From Windows with Love');
Sleep(5000);
end;
end;

Вот примерно как здесь... Только тут подключаются к текущему окну и меняют его заголовок... Извините, более близкого примера не нашел...
Посоветуйте... как найти нужный окно, едит... как их идентифицировать и как к ним обратиться?

Это раз...
http://delphi.vitpc.com/asp/viewitem.asp?catalogid=419
Это двас...
http://delphimaster.ru/cgi-bin/faq.pl?look...=988620990&n=15

Хм... Может, фразу "поиск рулит" мне внести в подпись? А то всё время её тут пишу.


PS. Да, забыл. ПОИСК РУЛИТ.



В общем, что непонятно - спрашивай.

Это сообщение отредактировал(а) dm9 - 23.3.2004, 20:44

Обезательно дабавь большими красными буквами

procedure TForm1.SetTextToEdit(Sender: TObject);
var EditHandle: THandle; TextToSet: PChar;
begin
SendMessage(EditHandle, WM_SETTEXT, 0, Integer(TextToSet));
end;

Вот это мне понравилось.... Вроде то, что нужно....

Но как получить этот самый Handle того самого Edita, я простите, так и не понял.... Я так понимаю, что на окно уже все равно какое... главное Edit схватить....

EditHandle = ?

А поиском я пользовался, и даже на форуме нашел несколько подобных тем.... Пробовал, но не получилось...

Программу скачивал?

Значит, так. Скачиваем программу. Смотрим, какой тип у твоего окна (главного!). Если прогу ты писал сам, то тип окна - это название класса главной твоей формы. По умолчанию это - TForm1.

Получаем дескриптор этого окна:

HWND: THandle;
HWND := FindWindow (ТИП_ОКНА, nil);
Ну или HWND := FindWindow (ТИП_ОКНА, ИМЯ_ОКНА);

Затем ищем при помощи FindWindowEx дочерние окна, какие тебе нужны. Определение - по типу окна, дескриптору меню, тексту и т. д.

Намёк - GetMenu, GetWindowText, GetClassName - это смотри в первой статье.

Если у тебя куча дочерних элементов одинаковых типов, наверное, придётся из перебрать (EnumWindows) и разделить по дексриптору меню (GetMenu).

Вот тебе ещё статейка.
http://delphimaster.ru/articles/winapi/index.html

Программу скачивал, очень красиво.... Даже засылал уже в Едит значение..... получается....

Счас пытаюсь заслать по порядку обхода.... предположим Едит 3-ий по Tab - значит в него..... Мучаю...

Нет прога не моя.... Абсолютно чужая...

Ссылка последняя не работает... Дельфимастер весь мертвый - зайду попозже....

Спасибо за Хелп огромное....
Добавлено @ 14:32
Пробился все-таки... статейка бешеная, конечно... почитаем....

Посмотри в Обозревателе Окон (то, что ты скачал) дескриптор меню нужного тебе эдита.

Затем, наверное, придётся проходить при помощи EnumWindows по всем окнам типа TEdit (или Edit) и искать нужное тебе окно по дескриптору меню.

Maverick скинь исходник этой проги мне на майл если не трудно

Ок.... счас.... Только там RxLib используется....

Maverick, а что такое RxLib и где взять?

Цитата

Maverick, а что такое RxLib и где взять?

1 топ - 1 вопрос...

Библиотека компонентов очень распространенная, продвинутая... Поищи по форуму - ссылки на скачку есть...