Ввести слово в браузерную строку хрома

[igrok111]

Как сделать что б там написалось слово? Не подходит ShellExecute - потому-что оно пройдет как по ссылке и ошибку выбьет, надо что б просто написало в текущей вкладке, можно и в любой. Можно и другой браузер, кроме ИЕ.
По какому алгоритмы делать, и я надеюсь для этого не надо перехватывать функции?

[Человек_Борща]

Что-то не ясно что вам надо.
Своим телепатором n-го lvl догадывась что вам надо в адресную строку забить текст.
Ну так найдите оконный класс(FindWindow,FindWindowEx или EnumWindows) адресной строки относительно окна гогольхрома и сделайте SetWindowText

ВСе перечисленные функции гуглятся по запросу "MSDN %s"

[spamer]

Дополню только - тс, посмотри для начала класс контрола через Spy+ (Chrome_OmniboxView должен быть по идее), а потом его и пытайся искать как Человек_Борща описал...

[igrok111]

Сообщение от spamer

Дополню только - тс, посмотри для начала класс контрола через Spy+ (Chrome_OmniboxView должен быть по идее), а потом его и пытайся искать как Человек_Борща описал...

А может есть какие-то исходники, примеры похожие на все это? а то я поискал, ничего не могу найти

[eoln]

http://programmersforum.ru/search.php
http://programmersforum.ru/showthread.php - это на примере калькулятора, параметры для FindWindow(EX) нужно смотреть через программу, например, WinSpy или Spy+ или подобную

[Человек_Борща]

а то я поискал, ничего не могу найти

Ну так и признайся, что вообще ничего не искал.

"Пример работы с %s" выдает толпы информации, да чего уж там, на MSDN к каждой функции идет пример работы с ней.

[BDA]

procedure TForm1.Button1Click(Sender: TObject);
var
  t: HWND;
  s: string;
begin
  t := Findwindowex(findwindow('Chrome_WidgetWin_1', nil), 0, 'Chrome_OmniboxView', nil);
  if t <> 0 then
  begin
    s := 'hello';
    SendMessage(t, WM_SETTEXT, length(s), lParam(PChar(s)));
    caption := 'done';
  end
  else
    caption := 'fail';
end;

[igrok111]

Сообщение от BDA

procedure TForm1.Button1Click(Sender: TObject);
var
  t: HWND;
  s: string;
begin
  t := Findwindowex(findwindow('Chrome_WidgetWin_1', nil), 0, 'Chrome_OmniboxView', nil);
  if t <> 0 then
  begin
    s := 'hello';
    SendMessage(t, WM_SETTEXT, length(s), lParam(PChar(s)));
    caption := 'done';
  end
  else
    caption := 'fail';
end;

К сожалению у меня ничего не получилось. Я ставлю таймер 4 сек, по нажатию кнопки происходит запуск таймера. Я нажимаю кнопку, сворачиваю прогу и нажимаю хром что б он стал активным, но по таймеру ничего не происходит, не пишеться hello.

procedure TForm1.Timer1Timer(Sender: TObject);
var
  t: HWND;
  s: string;

begin
 t := Findwindowex(findwindow('Chrome_WidgetWin_1', nil), 0, 'Chrome_OmniboxView', nil);
  if t <> 0 then
  begin
    s := 'hello';
    SendMessage(t, WM_SETTEXT, length(s), lParam(PChar(s)));
    caption := 'done';
  end
  else
    caption := 'fail';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;

[BDA]

Сообщение от igrok111

К сожалению у меня ничего не получилось. Я ставлю таймер 4 сек, по нажатию кнопки происходит запуск таймера. Я нажимаю кнопку, сворачиваю прогу и нажимаю хром что б он стал активным, но по таймеру ничего не происходит, не пишеться hello.

1) Зачем такие сложности? У меня срабатывает при активном окне моего приложения (хром не активен).
2) Какая версия Дельфи?
3) В заголовке приложения должна появиться запись done или fail.
4) Проверьте, что класс окна Chrome именно Chrome_WidgetWin_1.

[igrok111]

Сообщение от BDA

1) Зачем такие сложности? У меня срабатывает при активном окне моего приложения (хром не активен).
2) Какая версия Дельфи?
3) В заголовке приложения должна появиться запись done или fail.
4) Проверьте, что класс окна Chrome именно Chrome_WidgetWin_1.

Появляется fail, Delphi 6

В Delphi 7 тоже не работает, менял на Chrome_WidgetWin_0 Chrome_WidgetWin Chrome_WidgetWin_2 - всегда fail