Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.05;
Скачать: CL | DM;

Вниз

Взаимодействия с чужой прогой   Найти похожие ветки 

 
Ford ©   (2006-10-17 18:07) [0]

Можно ли взаимодейтсвовать с чужой прогой, например нажимать на опред. кнопку, ввести текст, чекбокс переключить. Возможно ли такое, если  да то куда копать прикажите ???


 
Ketmar ©   (2006-10-17 18:07) [1]

возможно. в WinAPI. FindWindow(), FindWindowEx(), etc...


 
Ford ©   (2006-10-17 18:21) [2]

FindWindow(), FindWindowEx() - это для окон, а  мне надо содержимое этих окон, можно ли как узнать какие элементы управленния находиться в этом окошке


 
Ketmar ©   (2006-10-17 18:32) [3]

EnumChildWindows()


 
GanibalLector ©   (2006-10-17 18:48) [4]

2 Ford ©   (17.10.06 18:21) [2]
> это для окон, а  мне надо содержимое этих окон, можно ли как узнать какие элементы управленния находиться в этом окошке

Точно так же...FindWindowEx и еще FindWindowEx и еще FindWindowEx и ...
Только сперва необходимо сканер окон заиметь, дабы проще и легче искать!


 
GanibalLector ©   (2006-10-17 19:05) [5]

Для примера, предположим есть форма. На форме панель(TPanel), на панели GroupBox, а на GroupBox "лежит" Edit.

Добираюсь так :
 
var h,h1,h2,EditHandle:HWND;
begin
 h:=FindWindow(nil,"myFuck");
 if h<>0 then
 begin
   h1:=FindWindowEx(h,0,"TPanel",nil);
   if h1<>0 then
   begin
     h2:=FindWindowEx(h1,0,"TGroupBox",nil);
     if h2<>0 then
     begin
       EditHandle:=FindWindowEx(h2,0,"TEdit",nil);
       if EditHandle<>0 then
        SendMessage(EditHandle,WM_SETTEXT,0,LPAram(PChar("GaaaaanibalLector")));
     end;
   end;
 end;
end;



Страницы: 1 вся ветка

Текущий архив: 2006.11.05;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.075 c
8-1143743821
Malik
2006-03-30 22:37
2006.11.05
Быстрый запуск MP3


9-1138207783
Зм1й
2006-01-25 19:49
2006.11.05
Интерполяция матриц


3-1157611152
vodvorezlaya
2006-09-07 10:39
2006.11.05
Помогите вылазит ошибка EDBEngine error with message insufficien


2-1161084317
Ezorcist
2006-10-17 15:25
2006.11.05
Как решить ошибку несовпадения типов TBitmap и tagBitmap?


2-1161111936
DROWSY
2006-10-17 23:05
2006.11.05
Ретро вопрос. :)