Поле чужой программы. Не могу получить текст

@NameGrey · Регистрация: 20.03.2009

Студворк — интернет-сервис помощи студентам

Имеется окно другой (не мной созданной) программы. На нем есть поле ввода данных и две кнопки. Необходимо получить данные из поля. Делаю так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button3Click(Sender: TObject);
var
 s:Pchar;
 h:Hwnd;
begin
h:=findWindowEx(FindWindow(nil,'Ввод данных'),0,'TEdit',nil);
s:=GetMemory(12);
SendMessage(h,WM_GetText,10,integer(s));
Showmessage(s);
FreeMemory(s);
end;

У меня получается, что s=''. Если успользовать данный код для программы, созданной в Delphi, то все работает, как надо. С чужой программой хэндл поля ввода не получается определить(выдает 0) Почему с другими программами написанный код не работает?

@igoriy · 24.09.2010, 13:41

Не по теме:

Суть клавиатурного шпиона-перехват нажатий клавишь которые записываются и через клиент -серверное приложение отправляются хозяину шпиёна и для этого используются хуки на клаву.Что можно вынести из скопированного едита - ничего.Пароли? Как известно они под звездочкой.Итак!

@Xander Bass · 24.09.2010, 13:42

Не по теме:

Да ладно, на самом деле я шучу. Мне в принципе пофиг, что там ребята пишут... :)

@igoriy · 24.09.2010, 13:43

Не по теме:

Да я то же умничаю от не фиг делать.Все развлекуха

@BoozZzilla · 24.09.2010, 14:08

Не работает, с дескриптором контрола выдаёт пустой результат.

А почему у меня может не работать GetFocus?
Тыкаю мышой в нужный Edit беру дескриптор H:=GetFocus;
даёт ноль...

@igoriy · 24.09.2010, 14:36

Потому как эта функция сработает если на контроле в данный момент клавиатурный фокус ввода

Добавлено через 18 секунд
а это отдельная тема

Добавлено через 28 секунд
http://api.farmanager.com/ru/d... focus.html

@anonimus · 14.10.2010, 11:20

Сообщение от igoriy

здесь Ошибка при получении текста из Edit-а другой программы

Добавлено через 13 минут
вот только что проверил

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
 h:hwnd;
 s:array [0..255] of char;
begin
h:=findWindowex(FindWindow(nil,'Form1'),0,'TEdit',nil);
Edit1.Text:= IntToStr(h);
Sendmessage(h,WM_GETTEXT,20,Integer(@s));
Edit2.Text:= String(s);
Showmessage(s);
end;

я делаю по твоему примеру

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
 h:hwnd;
 s:array [0..255] of char;
begin
h:=findWindowex(FindWindow(nil,'Редактор реестра'),0,'TEdit',nil);
Edit1.Text:= IntToStr(h);
Sendmessage(h,WM_GETTEXT,20,Integer(@s));
Edit2.Text:= String(s);
Showmessage(s);
end;

поле из которой мне нужно получить текст точно TEdit
h почему-то 0 и соответственно не получает данные из поля
Хотя с Form1 работает нормально, в чем косяк? ((

Добавлено через 12 минут
хендел окна FindWindow возвращает

Добавлено через 7 минут
Все понял почему, у меня edit лежит не на самой форме а на панели

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@igoriy
	24.09.2010, 13:41
	Не по теме: Суть клавиатурного шпиона-перехват нажатий клавишь которые записываются и через клиент -серверное приложение отправляются хозяину шпиёна и для этого используются хуки на клаву.Что можно вынести из скопированного едита - ничего.Пароли? Как известно они под звездочкой.Итак! 0

@Xander Bass
	24.09.2010, 13:42
	Не по теме: Да ладно, на самом деле я шучу. Мне в принципе пофиг, что там ребята пишут... :) 0

@igoriy
	24.09.2010, 13:43
	Не по теме: Да я то же умничаю от не фиг делать.Все развлекуха 0

@BoozZzilla 0 / 0 / 0 Регистрация: 06.05.2010 Сообщений: 14
	24.09.2010, 14:08
	Не работает, с дескриптором контрола выдаёт пустой результат. А почему у меня может не работать GetFocus? Тыкаю мышой в нужный Edit беру дескриптор H:=GetFocus; даёт ноль... 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	24.09.2010, 14:36
	Потому как эта функция сработает если на контроле в данный момент клавиатурный фокус ввода Добавлено через 18 секунд а это отдельная тема Добавлено через 28 секунд http://api.farmanager.com/ru/d... focus.html 0