Тема: Help! WinAPI !!
Показать сообщение отдельно
  #2  
Старый 01.07.2006, 04:03
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
По умолчанию

Цитата:
Как 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;
Ответить с цитированием