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

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