[Biker89]

нужна программа которая в заданную область экрана вводит заданный текст.
перехожу на сайт,используя данную команду:

WinExec('"C:\Users\123\AppData\Loca l\Google\Chrome \Application\chrome.exe" http://www.ya.ru/',SW_show);

далее пытаюсь в адресную строку ввести какой-либо запрос вот так:

wnd:=FindWindow('Chrome_WidgetWin_0',nil);
if wnd <>0 then
begin
wnd1:=FindWindowEx (wnd,0,'Chrome_RenderWidgetHostHWND',nil);
SetWindowText(wnd1,'www.ya.ru');
end;

однако ничего не происходит,хотя цикл выполняется.не понимаю в чём ошибка.буду признателен за помощь)

[Aristarh Dark]

Так в заданную область экрана или в некий абстрактный контрол?

[Biker89]

вообще желательно в абстрактный,потому что 2 экрана и координаты соответственно меняются)

[Aristarh Dark]

Если в абстрактный то SetWindowText не во всех случаях работать будет. Можешь еще попробовать послать сообщение WM_SETTEXT, но тоже не факт что сработает.

[Biker89]

Сообщение от Aristarh Dark

Если в абстрактный то SetWindowText не во всех случаях работать будет. Можешь еще попробовать послать сообщение WM_SETTEXT, но тоже не факт что сработает.

а можно пример если не сложно?)

[Aristarh Dark]

Примерно так:

Код:

wnd:=FindWindow('Chrome_WidgetWin_0',nil);
 if wnd <>0 then
   begin
     wnd1:=FindWindowEx (wnd,0,'Chrome_RenderWidgetHostHWND',nil);
     SendMessage(and1,WM_SETTEXT,0,Integer(PChar('Some text')));
   end;

[NumLock]

SetWindowText cannot change the text of a control in another application.
To set the text of a control in another process, send the WM_SETTEXT message directly instead of calling SetWindowText.

http://msdn.microsoft.com/en-us/libr...46(VS.85).aspx