VPF::послать текст активному полю ввода текущего активн

kastron

Дата 28.11.2012, 18:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 10.10.2011

Репутация: нет
Всего: нет

Здравствуйте! Есть задача: послать текст активному полю ввода текущего активного окна, т.е. тому элементу на котором сейчас находится курсор. Ниже привожу код, который это делает, но есть одна проблема. Не работает в браузерах... Как решить эту проблему? Спасибо.

Код


var
  h:hwnd;
  PID:dword;
  lpgui: tagGUITHREADINFO;
  hCaret:HWND;
  txt:string;
begin
  txt:='TEXT';
  h:=GetForegroundWindow;
  PID:=GetWindowThreadProcessId(h);
  lpgui.cbSize:=sizeof(tagGUITHREADINFO);
  GetGUIThreadInfo(PID, lpgui);
  hCaret:=lpgui.hwndCaret;
  SendMessage(hCaret,WM_SETTEXT,0,DWORD(PChar(txt)));
end;

kami

Дата 29.11.2012, 07:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72

Один из вариантов, нужный текст "набирается клавиатурой" в активном поле ввода, делалось 3 года назад в качестве разминки, в D7. Под юникодные версии Delphi не адаптировалось, не было необходимости.

Код


function TForm1.GetVKCode(Ch: Char): Word;
begin
  Result := VkKeyScanEx(Ch, GetKeyboardLayout(0));
  if Result = High(Word) then
    begin
      Beep;
      Memo1.Text := 'Error';
      Caption:=Ch;
    end;
end;
//=============================================
var
  ch: Char;
  Input: TInput;
  IsUpperCase: boolean;
begin
  for i:=1 to Length(FBuf) do // FBuf - строка, которую нужно набрать.
    begin
      ch := FBuf[i];

      IsUpperCase := HiByte(GetVKCode(Ch)) <> 0;

      Input.Itype := INPUT_KEYBOARD;
      Input.ki.dwFlags := 0;
      Input.ki.time := 0;
      Input.ki.dwExtraInfo := 0;

      if isUpperCase then
        begin
          Input.ki.wVk := VK_SHIFT;
          SendInput(1, Input, SizeOf(TInput));
          //Sleep(20);
        end;

      Input.ki.wVk := LoByte(GetVKCode(ch));
      SendInput(1, Input, SizeOf(TInput));
      Sleep(10);

      Input.ki.dwFlags := KEYEVENTF_KEYUP;
      SendInput(1, Input, SizeOf(TInput));
      Sleep(10);

      if isUpperCase then
        begin
          Input.ki.wVk := VK_SHIFT;
          SendInput(1, Input, SizeOf(TInput));
          //Sleep(20);
        end;
      inc(FBufPos);
  end;
end;

Это сообщение отредактировал(а) kami - 29.11.2012, 07:57

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »