Передача текста любому окну, где стоит фокус |
Previous Top Next |
Code: |
procedure TForm1.Timer1Timer(Sender: TObject); {©Drkb v.3(2007): www.drkb.ru}
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; |
Взято из http://forum.sources.ru
Автор: Rouse_
©Drkb::02124