послать текст приложению

[FloopyMan]

Здравствуйте. У меня возникла такая проблема: У меня есть Tedit с текстом и этот текст мне надо послать другому приложению, например, блокноту. Так вот собственно сама проблема: Как послать этот текст? Через findwindiw я нахожу блокнот, а что делать дальше никак не соображу. помогите.

[uberchel]

Как я понял, надо чтоб блокнот открывался с текстом, который в TEdit.

[FloopyMan]

у меня открыт блокнот уже. Надо чтобы при нажатии на кнопку посылался текст в блокнот из TEdit.

[uberchel]

Поработай с функцией CopyToClipboard; -Буффер обмена.

[FloopyMan]

как-то давно я видел такое, но сейчас нигде не могу найти. там как-то искали окно программы и с помощью какой-то функции посылали текст.

[mihali4]

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

procedure TForm1.Button1Click(Sender: TObject);
var cd : TCopyDataStruct;
begin
cd.cbData := Length(Edit1.Text)+1;
cd.lpData := PChar(Edit1.Text);
SendMessage ( FindWindow('Notepad', nil), WM_COPYDATA, 0, LParam(@cd));
end;

[uberchel]

Щас покопаюсь может, что и выйдет.

Уточняю
Т.е надо уже в открытом блокноте писать то, что
в TEdit, или при каждом вводе нового текста открывать блокнот?

[FloopyMan]

procedure TForm1.Button1Click(Sender: TObject);
 var
   wnd: HWND;
   i: Integer;
   s: string;
 begin
   wnd := FindWindow('notepad', nil);
   if wnd <> 0 then
   begin
     wnd := FindWindowEx(wnd, 0, 'Edit', nil);

     // Write Text in Notepad.
    // Text ins Notepad schreiben.
    s := 'Hello';
     for i := 1 to Length(s) do
       SendMessage(wnd, WM_CHAR, Word(s[i]), 0);
     // Simulate Return Key.
    PostMessage(wnd, WM_KEYDOWN, VK_RETURN, 0);
     // Simulate Space.
    PostMessage(wnd, WM_KEYDOWN, VK_SPACE, 0);
   end;
end;

Вот он тот код который я искал!!!

[FloopyMan]

Вот ещё вопрос: Как получить handle компонента в чужом приложении?
Есть программа, в ней поле ввода. Но я не знаю что это за поле, может TEdit, может TMemo.

[Пепел Феникса]

создаешь новый проект
на форму кладешь Таймер(TTimer(вкладка System))
и два Лейбла(TLabel(вкладка Standart))
а вот тебе обработчик таймера:

procedure TForm1.Timer1Timer(Sender: TObject);
var
 s: string;
 h: HWND;
begin
 h := WindowFromPoint(Mouse.CursorPos);
 SetLength(s, SendMessage(h, WM_GETTEXTLENGTH, 0, 0)+1);
 SendMessage(h, WM_GETTEXT, length(s), Integer(PChar(s)));
 SetLength(s, lStrLen(PChar(s)));
 Label1.Caption := s;
 SetLength(s,255);
 GetClassName(h,PChar(s),255);
 SetLength(s, lstrLen(PChar(s)));
 label2.Caption:=s;
end;

в первом Лейбле будет Текст окна(компонента) на которое наведешь Мышь
во втором его класс

а в своем приложении придется использовать FindWindowEx