Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.043 c
15-1161167667
Juice
2006-10-18 14:34
2006.11.05
Quantum Grid, обычная таблица


4-1150985614
PRT
2006-06-22 18:13
2006.11.05
Popup в Run - time


2-1161156631
Kray
2006-10-18 11:30
2006.11.05
onShow не работает


2-1161541388
Officeman
2006-10-22 22:23
2006.11.05
ST := StringReplace(TOVAR, &amp;amp; , &amp; , [frReplaceAll]); ???


15-1160590597
стьюдентЪ
2006-10-11 22:16
2006.11.05
Что вы делаете для души ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский