Передача текста любому окну, где стоит фокус
Falk0ner, вс, 06/07/2008 - 15:34.
Передача текста любому окну, где стоит фокус
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 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;
Отправить комментарий