Текущий архив: 2007.03.25;
Скачать: CL | DM;
Вниз
Посылка текста в активное окно(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]
> DVM © (06.11.06 15:06) [2]
> begin
> h := GetFocus;
Дык, надо ж чужого.
--
Regards, LVT.
← →
DVM © (2006-11-07 14:04) [4]
> Дык, надо ж чужого.
Да, точно. Ну тогда AttachThreadInput + GetForegroundWindow.
Только не при нажатии на кнопку в своем окне как в [2].
Страницы: 1 вся ветка
Текущий архив: 2007.03.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.038 c
