Цитата:
Как WinAPI функцией SendMessage передать строку в поле ввода данных какого либо окна ???
|
Код:
SendMessage( h, WM_SETTEXT, 0, Integer( s ) );
h - Handle текстового поля.
s - строка PChar.
Цитата:
Как найти дескриптор поля ввода ???
|
Используй функцию FindWindow для поиска окна, и функцию FindWindowEx для поиска дочернего окна. Возможно, тебе поможет эта статья
http://decoding.narod.ru/practic/wndinfo/wndinfo.html.
Пример: кинь на форму Edit и Button. Для кнопки напиши следующую процедуру.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
s: PChar;
h: THandle;
begin
// Текст, который будет передан в поле ввода
s := 'Text';
// Поиск окна, на котором расположено поле ввода
h := FindWindow( 'TForm1', nil );
// Поиск поля ввода, в которое нужно передать текст
h := FindWindowEx( h, 0, 'TEdit', nil );
SendMessage( h, WM_SETTEXT, 0, Integer( s ) );
end;