Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для DillerInc

Обратный инженер


Сообщения: 644
Благодарности: 47

Профиль | Отправить PM | Цитировать


Admiral
Если поле ввода данных - это объект класса TEdit,то,к примеру,для начала можно сделать так:
Код: Выделить весь код
var
 SearchedWnd : HWND;
 EDITCtrl : HWND;
begin
 SearchedWnd := FindWindow(nil, 'Заголовок искомого окна');
 EDITCtrl := FindWindowEx(SearchedWnd, 0, 'EDIT', nil);
end;
...тут мы пытаемся найти дескриптор(хендл) нужного нам поля ввода данных.
Последний параметр функции FindWindowEx - это имя искомого элемента.У меня он указан как nil,т.к. я не думаю,что имя этого элемента будет известно.Следовательно может возникнуть затруднительная ситуация,если на искомом окне будет расположено несколько подобных объектов класса TEdit...
Ну,и,в конце концов,устанавливаем в окне(поле ввода данных) свой текст:
Код: Выделить весь код
 SendMessage(EDITCtrl, WM_SETTEXT, 0, lParam('Наш текст,который мы хотим вставить в поле ввода данных'));
Подходит такой вариант?

-------
То,что неясно,следует выяснить.То,что трудно творить,следует делать с великой настойчивостью. © Конфуций


Отправлено: 13:01, 29-10-2005 | #2