Передача текста любому окну, -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [52.14.121.242]

Модераторы: jack128, Rouse_, Krid

Ссылки по теме:

Передача текста любому окну, , где стоит фокус, при нажатии клавиши

Rouse_	Сообщ. #1 , 10.05.05, 12:15
Moderator Профиль · PM Поощрения: 4 Dgm Рейтинг (т): 320	procedure TForm1.Timer1Timer(Sender: TObject); var pgui: TGUIThreadinfo; begin pgui.cbSize := SizeOf(TGUIThreadinfo); GetGUIThreadInfo(GetWindowThreadProcessId(GetForegroundWindow), pgui); SendMessage(pgui.hwndFocus, WM_SETTEXT, Length(Edit1.Text), Integer(@Edit1.Text[1])); end;

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0163 ] [ 16 queries used ] [ Generated: 2.05.24, 18:55 GMT ]