[ИльяК]

Привет всем!
Столкнулся с такой проблемой: пишу программу для браузерной флеш игры, есть желание сделать возможным работу проги в фоновом режиме. Задачу наполовину реализовал с помощью sendmessage - клики в свёрнутое окно передаёт, а вот текст передать в нужное окно игры не выходит (получается передать только если приложение не свёрнуто и окно, куда нужно текст передать не перекрыто другими приложениями/окнами).

Просьба помочь, если кто сталкивался с подобным, имеет представление.

кусок кода, с помощью которого сейчас передаю текст в окно проги:

Код:

procedure TForm1.tmr8Timer(Sender: TObject);
var i, g, t, p, w,c: Integer; s:string; wnd: HWND;
begin
 g:=StrToInt(edt8.text);
 i:=StrToInt(edt7.text) + random(g);
 edt11.text:=IntToStr(i);
    Application.ProcessMessages;
  wnd:=form1.Wb1.Handle;
  wnd:=GetSubChild(wnd);
  wnd:=GetSubChild(wnd);
  wnd:=GetSubChild(wnd);
   s:=edt11.text;
    for i:=1 to Length(s) do
        PostMessage(wnd, WM_CHAR, Word(s[i]), 0);

  tmr8.Enabled:=false;
end;