Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Как получить данные из другой программы?

Автор: Спартак 19.4.2008, 17:22

Доброго времени суток!
Возникла такая проблма: есть 2 приложения. Одно генерирует строку и записывает ее в Edit. Второе должно по таймеру проверять содержимое строки первого приложения.
Как найти окно - я знаю (пользуюсь FindWindow). Хэндл получаю. Как через этот хендл найти нужный мне Edit?? Тем более, что их (Edit-ов) может быть несколько

Автор: anwe 19.4.2008, 19:41

На форуме уже такое было, поищи.

Цитата(Спартак @ 19.4.2008, 16:22

)

Как через этот хендл найти нужный мне Edit??

FindWindowEx

Автор: Спартак 19.4.2008, 19:57

Цитата(anwe @ 19.4.2008, 19:41)

На форуме уже такое было, поищи.

Цитата(Спартак @ 19.4.2008, 16:22

)

Как через этот хендл найти нужный мне Edit??

FindWindowEx

Поиск не работает :( у меня опера даже не дает ввести строку поиска :(

Код


uses
  SysUtils, Classes, Windows;
var
  h, h1: HWND;
  s : array[1..255] of char;
begin
  h := FindWindow(nil, 'Ýòî ïðîáíàÿ ôîðìà');
  writeln('h = ', h);
  h1 := FindWindowEx(h, 0, 'TEdit', nil);
  writeln(h1);
  writeln(GetWindowText(h1, @s, 255));
  writeln('s = ', s);
  readln;
end.

Это то, что есть... у меня во 2-й прогрмме 2 Edit-а. Получить текст удается только из одного... причем если в нем меняешь текст, то все равно выдается старый :(

Автор: anwe 19.4.2008, 20:47

Используй FindWindowEx еще раз с хэндлом наденного Edit'а. Начнется поиск со следующего дочернего окна.

Автор: Спартак 19.4.2008, 20:52

Цитата(anwe @ 19.4.2008, 20:47)

Используй FindWindowEx еще раз с хэндлом наденного Edit'а. Начнется поиск со следующего дочернего окна.

за это спасибо smile

но остался один нерешенный вопрос: при обновлении данных в Edit-е программа получает старую строку :(

Автор: MetalFan 20.4.2008, 10:09

Цитата(Спартак @ 19.4.2008, 20:52

)

программа получает старую строку

странно, не должно такого быть.

Автор: bems 20.4.2008, 10:23

MetalFan, Классика! Браво! smile

Добавлено через 2 минуты и 13 секунд
Спартак, а реально это не TMaskEdit?

Автор: MetalFan 20.4.2008, 12:01

Цитата(bems @ 20.4.2008, 10:23

)

MetalFan, Классика! Браво! smile

эмм... не понял)

Автор: bems 20.4.2008, 14:03

Цитата(MetalFan @ 20.4.2008, 10:09

)

странно, не должно такого быть

тру программер smile

Добавлено через 2 минуты и 24 секунды

Цитата

Результати 1 – 10 з приблизно 1,390 на запит "странно, не должно такого быть". (0.73 сек)

Добавлено через 5 минут и 5 секунд
http://www.hare.ru/id=8.html