Вставка текста по курсору

[NEoMASTERR]

Здравствуйте, имеется приложение в которое надо вставить текст из буффера. Если конкретно то это окно сообщений квип2012. Делаю плагин для загрузки фоток на фотохостинги драг&дропом в окно сообщения. Плагин готов, но код срабатывает на всех вкладках

  function EnumClasses(HWND:THandle;lParam:Integer):BOOL;stdcall;
  var buf:array [0..255] of Char;
  begin
    Result:=true;
    GetClassName(HWND,buf,256);
    if pos('TInfuRichViewEdit',buf)<>0 then
    begin
      //GetWindowText(hwnd,buf,256);
      //if pos(curruin,buf)<>0 then
      begin
        SendMessage(HWND,WM_PASTE,0,0);
        Result:=false;
      end;
    end;
  end;

Если убрать result:=false то текст идёт во все окна ввода на форме, иначе только первому контакту в открытом окне сообщений, но я могу отправлять файл не ему а контакту ниже. Мне нужно получить хендл активного окна ввода (в котором курсор мигает). Надеюсь в неактивных вкладках он не мигает). Или если есть ваше решение - буду рад. Хелп

Перетащил я на вкладку с ним:



А ушло ему





На форуме квипа меня пошлют подальше, ибо запрещают плагинам такие методы работы с окнами и отправку сообщений контактам, но плагин я делаю для себя лично и не собираюсь его никому выкладывать

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

Думается API чата позволяет без изврата получить подобную информацию..

[NEoMASTERR]

А хотя проблема решена :D

function EnumClasses(HWND:THandle;lParam:Integer):BOOL;stdcall;
  var buf:array [0..255] of Char;
  begin
    Result:=true;
    GetClassName(HWND,buf,256);
    if IsWindowVisible(hwnd) then                          // <---- РЕШЕНО
    if pos('TInfuRichViewEdit',buf)<>0 then
    begin
      //GetWindowText(hwnd,buf,256);
      //if pos(curruin,buf)<>0 then
      begin
        SendMessage(HWND,WM_PASTE,0,0);
        Result:=false;
      end;
    end;
  end;

[NEoMASTERR]

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

Думается API чата позволяет без изврата получить подобную информацию..

Перерыл всё сдк, нет там получения хендла активного окна ввода)
Напрямую там нельзя работать из плагина (официально)