Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.06.2009, 17:04   #1
SarahConner
Пользователь
 
Аватар для SarahConner
 
Регистрация: 03.01.2009
Сообщений: 32
По умолчанию как взять текст из чужой программы. InqSoft WindowScanner не помог.

Ребята, всем привет.
Буду рада, если подскажите или направите где искать.
Похожие темы обсуждались, но всё же они не то, что нужно.
Есть дочернее окно чужой программы. Класс окна - FTCChatFrameDet. Хендл окна тоже знаю, всё с пом. InqSoft WS. В этом дочернем есть еще дочернее. Его класс - FTCChat, и его хендл и имя я знаю. Мне нужен текст из второго дочернего. В InqSoft WS текст не отображается.
Вот был пример от _Dmitry, но там Мемо было:
===
Вот пример: прочитать текст из чужого Memo и записать в свой
Код:


var
h,sh,L: integer;
S: string;
begin
h:=FindWindow('TForm1','Form1');
sh:=FindWindowEx(h,0,'TMemo',nil);
L:=SendMessage(sh,WM_GETTEXTLENGTH, 0,0);
SetLength(S,L);
SendMessage(sh,WM_GETTEXT,L-1,integer(S));
Memo1.Text:=S;
end;
====
Буду рада всем советам. Спасибо.
I'll be back

Последний раз редактировалось SarahConner; 24.06.2009 в 17:40.
SarahConner вне форума Ответить с цитированием
Старый 24.06.2009, 18:20   #2
Ntlegend
Форумчанин
 
Аватар для Ntlegend
 
Регистрация: 12.05.2007
Сообщений: 373
По умолчанию

от в этой теме я выкладывал примерчик как вытащить текст с адресной строки Explorer'а

если хочешь разобраться сама - то смотри функции FindWindowEx..
дальше узнав хендл эдита делаешь приблизительно следующее

Код:
var 
    p:PChar;
begin
p:=StrAlloc(255);//резервируем память под строку
SendMessage(h,WM_GETTEXT,WParam(255),LParam(p));//читаем строку
Edit1.Text:=p;//выводим строку в эдит
StrDispose(p);//освобождаем память
end;
если чтото не получается - милости просим
Перемен! - требуют наши сердца. Перемен! - требуют наши глаза.
В нашем смехе и в наших слезах, И в пульсации вен:
"Перемен!Мы ждем перемен!"
Ntlegend вне форума Ответить с цитированием
Старый 24.06.2009, 22:48   #3
SarahConner
Пользователь
 
Аватар для SarahConner
 
Регистрация: 03.01.2009
Сообщений: 32
По умолчанию

Спасибо за участие.
Пример Ваш для меня сложен, многое не понимаю. С FindWindowEx вроде бы понятно, проблем не возникает. Но текст мною искомый не в Edit находится вроде. поэтому то InqSoft WindowScanner его и не определяет
I'll be back
SarahConner вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как можно взять кусок чужой страницы и засунуть его на свою? wis239 PHP 7 12.02.2009 18:11
помог получил ключ clop1000 Фриланс 3 06.05.2008 06:42
Не могу найти Handle Edit'а в окне чужой программы nechto Общие вопросы Delphi 32 05.03.2008 19:41
Запуск своего модуля из чужой программы Volkogriz Общие вопросы Delphi 7 16.10.2007 05:19
Завершение работы чужой программы Viteef Win Api 12 24.09.2007 12:31