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

[BDA]

Borland Turbo Delphi Lite - работает.
Нужно не перебирать названия, а посмотреть класс окна в Spy++.

[igrok111]

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

Borland Turbo Delphi Lite - работает.
Нужно не перебирать названия, а посмотреть класс окна в Spy++.

Подскажите где скачать Borland Turbo Delphi Lite. Подходит ли Borland Turbo Delphi 2006? или Borland Delphi 2010 Lite?
Кстати влияет ли OC? У меня win7-64x

[BDA]

Могу в личку кинуть, откуда взять Borland Turbo Delphi Lite, но я просто тестировал в ней. В RAD Studio 2010 тоже работает (в основном ей пользуюсь). Судя по скриншоту, класс Chrome_WidgetWin_1 (т.е. все верно). У меня тоже Windows 7 64bit.

Попробуйте приложенный проект.

UPD
Увидел на Вашем скриншоте 4 окна с этим классом. Функция FindWindow находит первый, а у него нет Омнибокса.

[igrok111]

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

Могу в личку кинуть, откуда взять Borland Turbo Delphi Lite, но я просто тестировал в ней. В RAD Studio 2010 тоже работает (в основном ей пользуюсь). Судя по скриншоту, класс Chrome_WidgetWin_1 (т.е. все верно). У меня тоже Windows 7 64bit.

Попробуйте приложенный проект.

UPD
Увидел на Вашем скриншоте 4 окна с этим классом. Функция FindWindow находит первый, а у него нет Омнибокса.

Может это важно. у меня мой ехе всегда до 350 кб, у вас больше. Ну вообщем не получается( Я делаю так(может я что-то не так делаю) -включаю хром, потом прогу. И прога как-бы поверх хрома. В хроме загружена одна страница(вкладка) - google.com.ua. Ну и нажимаю кнопку - и выбивает fail
пробывал ваш ехе

[BDA]

Попробуйте:

function f(wnd: hwnd): bool; stdcall;
var
  t: hwnd;
  s: string;
begin
  f := true;
  t := Findwindowex(wnd, 0, 'Chrome_OmniboxView', nil);
  if t <> 0 then
  begin
    s := 'hello';
    SendMessage(t, WM_SETTEXT, length(s), lParam(PChar(s)));
    f := false;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  enumwindows(@f, lParam(nil));
end;

[igrok111]

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

Попробуйте:

function f(wnd: hwnd): bool; stdcall;
var
  t: hwnd;
  s: string;
begin
  f := true;
  t := Findwindowex(wnd, 0, 'Chrome_OmniboxView', nil);
  if t <> 0 then
  begin
    s := 'hello';
    SendMessage(t, WM_SETTEXT, length(s), lParam(PChar(s)));
    f := false;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  enumwindows(@f, lParam(nil));
end;

спасибо! наконец-то вышло. Буду этот исходних "изучать" что б понимать, ну и Spy++ конечно

[BDA]

Пожалуйста. Кстати, тут использована функция enumwindows, упомянутая во 2 посте
Если открыто несколько окон хрома и нужно написать во всех, то:

function f(wnd: hwnd): bool; stdcall;
var
  t: hwnd;
  s: string;
begin
  f := true;
  t := Findwindowex(wnd, 0, 'Chrome_OmniboxView', nil);
  if t <> 0 then
  begin
    s := 'hello';
    SendMessage(t, WM_SETTEXT, length(s), lParam(PChar(s)));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  enumwindows(@f, lParam(nil));
end;

[igrok111]

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

Пожалуйста. Кстати, тут использована функция enumwindows, упомянутая во 2 посте
Если открыто несколько окон хрома и нужно написать во всех, то:

function f(wnd: hwnd): bool; stdcall;
var
  t: hwnd;
  s: string;
begin
  f := true;
  t := Findwindowex(wnd, 0, 'Chrome_OmniboxView', nil);
  if t <> 0 then
  begin
    s := 'hello';
    SendMessage(t, WM_SETTEXT, length(s), lParam(PChar(s)));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  enumwindows(@f, lParam(nil));
end;

Спасибо. Я еще буду експерементировать со всем этим