Посылка текста в активное окно(Edit) другого приложения

← →
Avokain (2006-11-06 13:32) [0]

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

← →
Elen © (2006-11-06 14:34) [1]

> Avokain

Задай на этом сайте в поиске SendMessage. Эта тема не нова.

← →
DVM © (2006-11-06 15:06) [2]

> Avokain (06.11.06 13:32)

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
h: THandle;
s: string;
begin
h := GetFocus;
s := "text";
if h <> 0 then SendMessage(h, WM_SETTEXT, 0, longint(PChar(s)));
end;

← →
Leonid Troyanovsky © (2006-11-07 13:58) [3]

> Дык, надо ж чужого.

Да, точно. Ну тогда AttachThreadInput + GetForegroundWindow.
Только не при нажатии на кнопку в своем окне как в [2].

Посылка текста в активное окно(Edit) другого приложения Найти похожие ветки