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

[Stilet]

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

Если это не хук то не требуется принудительного посылания дальше по цепочке.

[soufee]

Из буфера обмена вставляется.. а в буфер не забирается.
То что было, то и ставится в эдит

[B_N]

soufee, ещё раз, если Вы хотите сделать как в Лингво, то Лингво ничего никуда не "забирает", а пользуется буфером, который был заполнен стандартным образом - через ^C или ^Ins. Если только в ABBYY не произошла революция и версии после десятой не стали работать иначе. Если Вы не хотите сделать, как в Лингво, то просто отправляйте тому окну, в которое идёт сообщение о клавише, WM_COPY, отправлять желательно осторожно, скажем через SendMessageTimeout, а потом давайте соответствующую команду своему приложению.

[eoln]

Проблема решится если добавить код

procedure TForm1.FormCreate(Sender: TObject);
var Hwnd_: Hwnd;
begin
  Hwnd_ := SetClipboardViewer(Handle);
end;

[soufee]

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

Проблема решится если добавить код

procedure TForm1.FormCreate(Sender: TObject);
var Hwnd_: Hwnd;
begin
  Hwnd_ := SetClipboardViewer(Handle);
end;

Ничего не изменилось.

B_N, как в лингво не получится, т.к. в этом случае моя программа будет конфликтовать с лингво. придется делать по другому.
У меня определены клавиши CTRL+F8. Надо чтобы при нажатии именно на эти клавиши происходила операция.

[eoln]

Приведёный код работает при CTRL+C, т.е при копировании в буфер

unit Unit1;
  
interface   
  
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ClipBrd;   
  
type   
  TForm1 = class(TForm)   
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
private
  procedure WMDrawClipboard(var Msg: TWMDrawClipboard);
    message WM_DRAWCLIPBOARD;   
  public   
    { Public declarations }   
  end;   
  
var   
  Form1: TForm1;

implementation   
  
{$R *.dfm}

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;
  
procedure TForm1.FormCreate(Sender: TObject);
var Hwnd_: Hwnd;
begin
  Hwnd_ := SetClipboardViewer(Handle);
end;
  
end.

У меня определены клавиши CTRL+F8

Ну тогда регистрирует горячии клавиши и выполняем procedure TForm1.WMDrawClipboard при событии

[soufee]

У меня получилось так

procedure Tform1.WMHotKey (var Message: TMessage);
var
bufHnd: HWND;
bufLen: integer;
bufLenStart, bufLenEnd: integer;
bufTextLen: integer;
P: PChar;
begin
inherited;
bufHnd := GetTopWindow(GetForeGroundWindow);

SendMessage(bufHnd, EM_GETSEL, Longint(@bufLenStart), Longint(@bufLenEnd));
bufTextLen := SendMessage(bufHnd, WM_GETTEXTLENGTH, 0, 0);
bufLen := bufLenEnd - bufLenStart;

SetString(SelectedText, PChar(nil), bufLen);
if bufLen <> 0 then
begin
P := StrAlloc(bufTextLen + 1);
try
SendMessage(bufHnd, WM_GETTEXT, StrBufSize(P), Longint(P));
Move(P[bufLenStart], Pointer(SelectedText)^, bufLen);
finally
StrDispose(P);
end;
end;

application.Restore;
application.bringtofront;
edit1.Text:=selectedtext;
Ic(2,Application.Icon); // Удаляем значок из трея
ShowWindow(Application.Handle,SW_SH OW); // Восстанавливаем кнопку программы
ShowWindow(Handle,SW_SHOW);
end;

Работает в блокноте. В других программах не работает. Выскакивает ошибка Out of memory. С чем это может быть связано?

[soufee]

ООООчень прошу помочь мне. Дело очень важное