Буфер обмена за пределами нашего приложения

[soufee]

Здравствуйте, уважаемые участники клуба.
Передо мной стоит задача создания словаря (наподобие Лингво).
После того как я выделяю какое либо слово в любом приложении, будь то Word, блокнот, Браузер и т.п., и по нажатии быстрых клавиш, нужно чтобы в открывающейся программе в Edit вносилось выделенное слово.
Очень надеюсь на вашу помощь.

[BOBAH13]

Может dll и установка глобальных клавиш ? Ну а для буфера и модуль clipbrd кажется сойдет ) Ну а если сразу после копирования то хуки на буфер обмена в сети описаны... ищем ))

[soufee]

С быстрыми клавишами проблем нет. У меня прога висит в трее, при нажатии комбинации клавиш вылазиет. Надо чтобы при неактивном окне он в этот самый Clipboard сначала взял строчку, потом окно активизировал и вставил в Едит

[Ring0Sn]

глобальный хук

[B_N]

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

С быстрыми клавишами проблем нет. У меня прога висит в трее, при нажатии комбинации клавиш вылазиет. Надо чтобы при неактивном окне он в этот самый Clipboard сначала взял строчку, потом окно активизировал и вставил в Едит

Лингво берёт текст уже из буфера, куда текст попадает по ^C или ^Ins.

[soufee]

Ring0Sn, B_N можете поподробней объяснить ?

[B_N]

soufee, а что именно обяснить? Я пока не вижу у Вас ни одного вопроса. О хуках на форуме написано множество тем, поищите их по SetWindowsHookEx, по буферу обмена тоже есть информация - тоже поиск по OpenClipboard

[soufee]

Объясните пожалуйста как с помощью глобального хука забрать выделенный фрагмент текста в буфер обмена. Нужно при нажатии ctrl+f8 текст забирался в буфер обмена после чего активизировалось окно.

[Stilet]

как с помощью глобального хука забрать выделенный фрагмент текста в буфер обмена

Глобальный хук тут я бы не применял. Луче как в прагме это сделано - по клику на иконке прагма открывает клипбоард активного окна, получает из него текст.

[eoln]

type
  procedure WMDrawClipboard(var Msg: TWMDrawClipboard); message WM_DRAWCLIPBOARD;
...
procedure TForm1.WMDrawClipboard(var Msg: TWMDrawClipboard);
var
  P: PChar;
  H: THandle;
begin
  if Clipboard.HasFormat(CF_TEXT) then
  begin
    H := Clipboard.GetAsHandle(CF_TEXT);
    P := GlobalLock(H);
    Edit1.SetTextBuf(P);
    GlobalUnlock(H)
  end
end;

По идеи сообщение надо будет дальше послать, но и так вроде работает