захватить текст, выделенный мышью

Question

Я пытаюсь создать программу, которая, когда я нажимаю горячую клавишу, конкатенирует определенный текст с выбранным текстом из окна. например: у меня есть текст «захват текст, выделенный мышью», я выбираю слово «текст» с помощью мыши, и теперь, когда я нажимаю какую-то горячую клавишу, она копирует меня в буфер обмена следующим образом: xxx + text + xxx , поэтому мой вопрос в том, как вернуть слово, выбранное мышью?

спасибо !!

---

от того, что у меня сказал я understud это:

unit Unit4; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, Clipbrd; 

type 
    TForm4 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
    procedure WMHotkey(var Message: TWMHotKey); message WM_HOTKEY; 
    procedure FormDestroy(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form4: TForm4; 

implementation 

const 
    MY_ID = 123; 

{$R *.dfm} 

procedure TForm4.FormCreate(Sender: TObject); 
begin 
    RegisterHotKey(Handle, MY_ID, MOD_CONTROL, ord('1')); 

end; 

procedure TForm4.FormDestroy(Sender: TObject); 
begin 
    UnregisterHotKey(Handle, MY_ID); 

end; 

procedure TForm4.WMHotkey(var Message: TWMHotKey); 
lookup_word: string; 
begin 
clipboard.clear; 
    if Message.HotKey = MY_ID then 
    begin 

    if not AttachThreadInput(GetCurrentThreadId, GetWindowThreadProcessId(GetForegroundWindow), true) then 
     RaiseLastOSError; 

    try 
     SendMessage(GetFocus, WM_GETTEXT, 0, 0); 
     lookup_word:= clipboard.astext; 
     edit1.Text := lookup_word; 
     Clipboard.AsText := '<font color=blue> edit1.text </font>'; 
     SendMessage(GetFocus, WM_PASTE, 0, 0); 
    finally 
     AttachThreadInput(GetCurrentThreadId, GetWindowThreadProcessId(GetForegroundWindow), false); 
    end; 


end; 

end; 
end; 
end. 

это нормально?

---

Я могу создать свое приложение так, как я планировал. но теперь я столкнулся с другой проблемой. он не будет работать над приложением aspx. он не распознает текст из окна редактирования aspx. Есть ли способ обойти эту проблему?

спасибо!

Answer 1

Если я правильно понимаю ваш вопрос, то, что вы подразумеваете под «выбранным с помощью мыши», является нормальным выделенным текстом в элементе управления редактированием, например, в TEdit, TMemo или TRichEdit. Если такой случай, то VCL имеет свойство Seltext, которое содержит выделенный текст. так что код будет выглядеть примерно так: (пример для управления ТМето)

... 
uses Clipbrd; 
... 
Clipboard.asText:= xxx + Memo1.SelText + xxx; 
... 

Если выбранный текст из другого приложения, то его очень зависит от управления, используемого приложением. Если элемент управления является стандартным элементом управления Windows или его потомком (в основном), вы можете получить выделенный текст, отправив сообщение этому элементу управления, но если компонент не является стандартным, он не ответит на сообщение правильно. Этот метод требует, чтобы вы знали дескриптор окна целевого элемента управления (используя GetFocus в блоке Windows): 1. Получите весь текст, отправив сообщение WM_GETTEXT 2. Получите позицию выбора, отправив сообщение EM_GETSEL 3. Вычислите выбранный text (подстрока целого текста) с использованием выбора позиция из пункта 2. Если у вас есть источник vcl, вы можете использовать реализацию исходного кода класса TCustomEdit в модуле StdCtrls в качестве ссылки. мой пример:

... 
var 
    Buff: array[0..65535] of char; 
... 
function CurrentSelectedText: string; 
var 
    hFocus: hWnd; 
    aStart, aEnd: integer; 
begin 
    //added by andrei, attach input to current thread 
    AttachThreadInput(GetCurrentThreadId, GetWindowThreadProcessId(GetForegroundWindow), true); 
    hFocus:= GetFocus; 
    SendMessage(hFocus, WM_GETTEXT, 65535, integer(@buff)); 
    SendMessage(hFocus, EM_GETSEL, Integer(@aStart), Integer(@aEnd)); 
    result:= Copy(StrPas(Buff), 1+aStart, aEnd-aStart); 
end; 

Answer 2

Пожалуйста, не засоряйте в буфер обмена таким образом. Буфер обмена предоставляется для удобства пользователя, а не для программиста. Если у пользователя есть что-то важное в буфере обмена, вы собираетесь его уничтожить. И вы собираетесь вызывать непредвиденные/нежелательные данные в приложениях расширения буфера обмена. При использовании продуктов Remote Desktop вы будете создавать нежелательный сетевой трафик.