Wert in eine fremde Anwendung zuweisen ?

[Delphiturbo]

ja aber es passiert immer nocht nichts !

Delphi-Quellcode:

var
  wnd: HWND;
begin
  wnd := FindWindow('#32770',' Text ');
  wnd := FindWindowEx(wnd, 0, 'RichEdit20A', nil);
  if wnd <> 0 then
  begin
   //  ShowMessage('Window found. Handle: ' + IntToStr(wnd));
     //writeln('Window found. Handle: ' + IntToStr(wnd));
     
SendMessage(wnd, WM_SetText, 0, LongInt(PChar(Edit1.Text)));
  end;
end.