Очистить поле ввода другой программы

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

Доброго времени суток!

Стояа задача:
Написать программу которая будет писать текст в окно другой программы. С этим я справился.

А теперь зная hwnd поля ввода, как убрать оттуда текст?

[Аватар]

Написать программу которая будет писать текст в окно другой программы. С этим я справился.

А запись пустого текста в качестве очистки не прокатит? Возможно в начале выделив существующий текст

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

Вот код:

procedure TMainForm.sButton1Click(Sender: TObject);
var
  hWindow: HWND;
  hMDI: HWND;
  hHub: HWND;
  hEdit: HWND;
  i: integer;
  s: String;
begin
//Ищем окно
  hWindow := FindWindow(PChar(WindowClassEdit.Text), nil);
  if hWindow <> 0 then
  begin
    log('hWindow=' + IntToStr(hWindow));

    // Ищем перекладчик окна
    hMDI := FindWindowEx(hWindow, 0, PChar(WindowMDIClassEdit.Text), nil);
    if hMDI <> 0 then
    begin
      log('hMDI=' + IntToStr(hMDI));
      // Ищем окно хаба
      hHub := FindWindowEx(hMDI, 0, PChar(WindowHubClassEdit.Text), nil);
      if hHub <> 0 then
      begin
        log('hHub=' + IntToStr(hHub));
        // Ищем поле ввода
        hEdit := FindWindowEx(hHub, 0, PChar(WindowEditClassEdit.Text), nil);
        if hEdit <> 0 then
        begin
          log('hEdit=' + IntToStr(hEdit));
          s := MessageEdit.Text;
          // Посылам текст
          if Length(s) <> 0 then
          begin
            log('s=' + IntToStr(Length(s)));
            for i := 1 to Length(s) do
            begin
              SendMessage(hEdit, WM_CHAR, Ord(s[i]), 0);
            end;
          end
          else
          begin
            log('s=' + IntToStr(Length(s)));
          end;
        end
        else
        begin
          log('hEdit=0');
        end;
      end
      else
      begin
        log('hHub=0');
      end;
    end
    else
    begin
      log('hMDI=0');
    end;
  end
  else
  begin
    log('hWindow=0');
  end;
end;

Нет, нужно именно очистить поле ввода hEdit.

[Аватар]

WM_CLEAR очищает, только не знаю выделенный текст или весь
EM_SETSEL выделяет если надо

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

Сообщение от Из MSDN

WM_CLEAR Message

An application sends a WM_CLEAR message to an edit control or combo box to delete (clear) the current selection, if any, from the edit control.

А после такого кода:

            log('s=' + IntToStr(Length(s)));
            SendMessage(hEdit, WM_CLEAR, 0, 0);
            for i := 1 to Length(s) do
            begin
              SendMessage(hEdit, WM_CHAR, Ord(s[i]), 0);
            end;
            SendMessage(hEdit, WM_CLEAR, 0, 0);

Текста в edit вообще не должно быть.

hwnd правильный. Текст вставляется на ура.


Ну и ещё влпрос по той же тематике:
Как нажать enter в этом поле ввода, чтобы послаь это сообщение?

[Аватар]

SendMessage(hEdit,EM_SETSEL,0, Length(s)-1); перед WM_CLEAR по идее должно помочь

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

Это работает. Только -1 совсем не к месту. Строка с 1 а не с 0 начинается=)

Но как убрать весь текст который там уже есть(не мой текст)?

[Аватар]

Сообщение от Человек_Борща

Но как убрать весь текст который там уже есть(не мой текст)?

А чем ваш текст отличается от не вашего? Так же и убирать, как вы свой текст убираете

Только -1 совсем не к месту. Строка с 1 а не с 0 начинается

Я думаю, что дело не в том, что строка с единицы начинается. Здесь как раз 0 - позиция откуда выделять текст, а Length(s) - докуда, т.е. первая позия за пределами текста

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

А чем ваш текст отличается от не вашего? Так же и убирать, как вы свой текст у

имелось ввиду текст который там уже есть, и его вводили руками.

[Аватар]

Сообщение от Человек_Борща

имелось ввиду текст который там уже есть, и его вводили руками.

Чет я не соображу. Послали эдиту два сообщения: выделить и очистить. А ему (эдиту) какая разница откуда текст в нем взялся?
А, врубился. Длина текста не известна.


Добавил: можно посмотреть WM_GETTEXT, WM_GETTEXTLENGTH
Есть еще WM_SETTEXT, поудобнее будет чем WM_CHAR