Передача символа другому окну

[Stilet]

Попробуй передавать так:

var cb:TClipboard;s;string;
begin
 cb:=TClipboard.Create;
  s:=Memo1.Text;
  cb.SetTextBuf(pchar(s));
  SendMessage(wnd2,WM_PASTE,0,0);
 cb.Free;
end;

Кстати я бы на твоем месте сделал проверки на равенство wnd2 нулю...

[dimonbest]

Не компилит, ругается не строчку

cb.SetTextBuf(pchar(s));

Ошибка: необъявленный идентификатор SetTextBuf
Что не так?
Подключил другой uses, это заработало.
А проблема оказывается вот в чем:

wnd2:=getactivewindow;

Когда открываю блокнот - хендл равен нулю... Почему так?

[Stilet]

Не компилит

uses clipbrd

НАсчет блокнота:

procedure TForm1.FormCreate(Sender: TObject);
var cb:TClipboard;s:string; h:hwnd;
begin
 h:=FindWindow('Notepad','Безымянный - Блокнот');
 h:=FindWindowex(h,0,'Edit','');
 if h<>0 then begin
   cb:=TClipboard.Create;
  s:=Memo1.Text;
  cb.SetTextBuf(pchar(s));
  SendMessage(h,WM_PASTE,0,0);
 cb.Free;
 end else ShowMessage('');
end;

[dimonbest]

В том то и дело, что мне надо находить не блокнот (точнее не только блокнот), а любое активное окно : word, mozila, и т.д.
Думал это можно сделать через

getactivewindow

. А оно не хочет.
Каким еще способом можно найти хендл любого активного
окна?

[BOBAH13]

GetForegroundWindow

[dimonbest]

То что нужно. Теперь хендл активного окна находит. Но посылать по прежнему не хочет. Попробовал все примеры, что в этой теме...