Управление чужим приложением средствами WinAPI

procedure TForm1.Button9Click(Sender: TObject);
Var
Men      :HMenu;
Hnd,HndDialog,HndControl,HndAsc,HndBtn  :HWnd;
HndMen,HndSMen                          :HMenu;
StrClass                                :PChar;
StrBase                                 :string;
IdBtn,idMen                             :integer;
begin
  Hnd:=FindWindow(nil, 'Конфигуратор - 2345');
  if Hnd <>0 then begin
    //фокусируем: 
    windows.SetForegroundWindow(Hnd);   //или можно так:windows.BringWindowToTop(Hnd);
//Работа с меню:
//===============================================================================
    HndMen:=GetMenu(Hnd);//получили описатель главного меню окна.

    HndSMen:=GetSubMenu(HndMen,1);//получили описатель второго пункта главного меню (0 -первый пункт)
    //получили идентификатор 7 пункта подменюменю (черты в меню - это также пункты)	
    idMen:=GetMenuItemID(HndSMen,6);
    //в данном случае idMen это word(33206)
    if idMen<>0 then begin										   
	//запускаем пункт меню. Именно PostMessage, SendMessage - не работает.
      PostMessage(Hnd,WM_COMMAND,idMen,0); 
	  

  //===============================================================================
  //Инициализируем переменные диалогов:
      HndDialog:=0;
      HndControl:=0;
      HndBtn:=0;
      HndAsc:=0;
      IdBtn:=0;
  //===============================================================================
  //поищем диалог ввода до тех пор пока не найдем:
      While HndDialog=0 do HndDialog:= FindWindow(nil, 'Открыть файл конфигурации');
        if HndDialog<>0 then begin
           StrClass:='Edit'+#0;//на всякий случай вставим завершающий ноль
           //Ищем класс Edit среди подчиненных HndDialog окон
           HndControl:=FindWindowEx(HndDialog,0,StrClass,'');
           if HndControl<>0 then begin
             StrBase:='D:\md\zik2345\1Cv7.MD';
             Sleep(1000);//а вот без этого ну ни как не хочет работать.

             SendMessage(HndControl, WM_Settext,0,Integer(StrBase));//все, текст переменной StrBase введен.
             //жмем Enter
             SendMessage(HndDialog,WM_Command,MakeWParam(1,$0f),HndControl);
             //здесь 1 это значит что мы передаем на выполнение акселератор
             //строки, а $0f - это событие "(Enter)" этому акселератору
             //в MSDN смотрим WM_Command.
             //MakeWParam - функция которая два Word слова помещает :
             //первое в верхние 16 bit, второе в нижние 16 bit, 32 битного(LongInt) 
			 //параметра WParam (аналог MakeLParam ).
  //===============================================================================
  //ищем диалог пока не найдем:
             while HndAsc=0 do HndAsc:= FindWindow(nil, 'Конфигуратор');
             if HndAsc<>0 then begin
  //ищем кнопку в диалоге:
  //обращаем внимание на знак & - если на кнопку завязана комбинация клавиш 
  //(это когда буква в кнопке подчеркнута) 
  //то надо к имени добавлять перед этой буквой & а то кнопочка не найдется если их несколько.

                 while HndBtn=0 do HndBtn:=FindWindowEx(HndAsc,0,'Button','&Да');
                 if HndBtn<>0 then begin
                 IdBtn:=GetDlgCtrlID(HndBtn);
                    if IdBtn<>0 then begin
                     //ну и наконец жмем кнопку '&Да':
                     SendMessage(HndAsc,WM_Command,MakeWParam(IdBtn,BN_CLICKED),HndBtn);
                     //а хелп MSDN по BN_CLICKED или WM_Command
                     //здесь верхнее слово WParam это идентификатор контрола, а нижнее - код BN_CLICKED
                    end;
                 end;
             end;

  //================================================================================
           end;
        end;
    end;
  end;
end;