КопиПаст или как вставить текст в нужное место

[admin-one]

Добрый день , возникла такая проблемка , нужно сделать что то вроде этого :
к примеру в edit1 есть текст , мне нужно чтоб этот текст попал туда где находится курсор , к примеру курсор мигает в поле для поиска на сайте и мне нужно чтоб в это место попал текст из edit1 . кто то знает как это сделать ? и все это должно быть программно ... post,get запросы НЕ предлагать , нужно чтоб все происходило в реальном времени ... пож очень нужно , заранее всем спасибо

иными словами:
Как определить в каком элементе формы находится курсор(для текстовых полей ввода)?
Например, чтобы узнать вставлять текст в этот элемент или нет
и если надо вставить туда текст

[zumm]

Ну, все довольно просто. Для начала, нужно получить Handle окна на котором стоит фокус ввода. Для этого нужно пройтись по всем существующим окнам и проверить если у них фокус. Если фокус установлен, можно смело вписывать текст в это окно:

const
  SomeText = 'SomeText';
  
var
  MainProcessID: DWORD;
  
...

function CheckWindow(const AHandle: THandle; const AParam: LParam): Boolean;
var
  ProcessID: DWORD;
  HandleFocusedWindow: THandle;
begin
  ProcessID := GetWindowThreadProcessID(AHandle, nil); 

  AttachThreadInput(ProcessID, AParam, True); 
  HandleFocusedWindow := GetFocus(); 
  AttachThreadInput(ProcessID, AParam, False); 

  Result := HandleFocusedWindow <> 0;
  
  if Result then
  begin
    SetWindowText(HandleFocusedWindow, PChar(SomeText)); 
  end;
end;

...

begin 
  MainProcessID := GetWindowThreadProcessId(Handle, nil); 
  EnumWindows(@CheckWindow, LParam(MainProcessID)); 
end;

[eoln]

Может быть есть способ другой... Какая конечная цель программы? Быстрый поиск на просматриваемой странице чего-либо? А обычные ctrl-c/ctrl-v не подойдут?
Один из вариантов - хуком или просто по таймеру или ещё как искать активное окно (см например GetForegroundWindow), затем перебор элементов окна (см FindWindow/FindWindowEx или EnumChildWindows), затем вставка текста (см SendMessage+WM_SETTEXT/WM_PASTE или SetWindowText).

НО! Тут есть куча (большая) неприятностей. Например, текстовые поля могут иметь разные классы - какой-нибудь TMyEdit. И если это ещё можно определить по свойствам компонента, то проблему с текстовыми полями которые не являются оконными компонентами таким способом решить нельзя (это касается и многих браузеров). Обойти, конечно, можно - имитация ctrl-v через буфер обмена, но нет гарантии что курсор в поле ввода. Далее ещё надо будет предусмотреть ситуацию исключающую повторное копирование текста - тут можно приципить код к "горячей клавише". В итоге приходим к тому с чего начали (хотя чуть более быстрее).

[admin-one]

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

Ну, все довольно просто. Для начала, нужно получить Handle окна на котором стоит фокус ввода. Для этого нужно пройтись по всем существующим окнам и проверить если у них фокус. Если фокус установлен, можно смело вписывать текст в это окно:

const
  SomeText = 'SomeText';
  
var
  MainProcessID: DWORD;
  
...

function CheckWindow(const AHandle: THandle; const AParam: LParam): Boolean;
var
  ProcessID: DWORD;
  HandleFocusedWindow: THandle;
begin
  ProcessID := GetWindowThreadProcessID(AHandle, nil); 

  AttachThreadInput(ProcessID, AParam, True); 
  HandleFocusedWindow := GetFocus(); 
  AttachThreadInput(ProcessID, AParam, False); 

  Result := HandleFocusedWindow <> 0;
  
  if Result then
  begin
    SetWindowText(HandleFocusedWindow, PChar(SomeText)); 
  end;
end;

...

begin 
  MainProcessID := GetWindowThreadProcessId(Handle, nil); 
  EnumWindows(@CheckWindow, LParam(MainProcessID)); 
end;

Этот код работает , но только не там где мне нужно , мне нужно чтоб работал на всех приложениях , будь то браузер , текстовик ,ворд , паинт и т.д , а этот только на моем приложении ....
есть еще идеи ?

[zumm]

admin-one, этот код должен работать на любом приложении. Конечно же, при условии, что это приложение использует оконные компоненты.

[admin-one]

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

admin-one, этот код должен работать на любом приложении. Конечно же, при условии, что это приложение использует оконные компоненты.

я вот код :

 MainProcessID := GetWindowThreadProcessId(Handle, nil); 
  EnumWindows(@CheckWindow, LParam(MainProcessID));

сунул в таймер и зашел в браузер гугл хром и там нажал на адресную строку (т.е перевел фокус курсора на адресную строку ) но туда ничего не записалось , а если перенести фокус на едит1 в моей проге то появляется ...

[zumm]

Скорее всего, гугл хром использует свои компоненты. Рисованные контролы, которые не являются оконными. Попробуйте на другом приложении.