[Toutlemond]

Aristarh Dark
Спасибо за наводку! Накликать удалось, но возникла другая проблема, в одном месте необходимо ввести слово в TEdit. Мышой тут не обойтись тогда я вспомнил про сендмеседж и написал следующее -

Код:

While HWindow=0 do HWindow:= FindWindow(nil, 'Альфацентр');
        if HWindow<>0 then begin
           EdClass:='Edit'+#0;
           HControl:=FindWindowEx(HWindow,0,EdClass,'');
           if HControl<>0 then begin
             SText:='Текст';
             SendMessage(HControl, WM_Settext,0,Integer(SText));
             SendMessage(HWindow,WM_Command,MakeWParam(1,$0f),HControl);
            End;
         End;

но что то не вставляется текст туда.