VPF::Текст слева от каретки. - Форум программистов

hitter

Дата 5.4.2006, 11:51 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 14.3.2006
Где: Новосибирск

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

Объясняю - зарегана hotkey , при нажатии на нее прога определяет хендл поля ввода -

Код


function GetCaretWindow: HWND;
 var
   w: HWND;
   aID, mID: DWORD;
   APoint: TPoint;
 begin
   Result:= 0;
   w:= GetForegroundWindow;
   if w <> 0 then
   begin
     aID:= GetWindowThreadProcessId(w, nil);
     mID:= GetCurrentThreadid;
     if aID <> mID then
     begin
       if AttachThreadInput(mID, aID, True) then
       begin
         w:= GetFocus;
         if w <> 0 then
          if GetCaretPos(APoint) then
          begin
           Windows.ClientToScreen(w, APoint);
           Result:=WindowFromPoint(APoint);
         end;
         AttachThreadInput(mID, aID, False);
       end;
     end;
   end;
 end;

Потом нада получить текст рядом с кареткой, до пробела!

Цитата(Romikgy @ 5.4.2006, 12:40

)

универсальный способ

Ну может сильно ГРОМКО сказал, ну действующий по крайней мере в большинстве полей ввода, и редактирования!

Цитата(hitter @ 5.4.2006, 00:32

)

создать Тред и прикрутить его ко всем процессам,
и с помощью его контролировать ввод и вывод

А это не кто не думал над этим?

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