Четверг, 05.12.2024, 23:41 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
Работа с чужими окнами
freezДата: Среда, 28.07.2010, 18:33 | Сообщение # 1
Частый гость
Зарегистрирован: 09.01.2010
Группа: Пользователи
Сообщений: 30
Статус: Offline
В приложении есть Edit я знаю его Handle класс окна и Handle окна родителя , заголовка окна нет.
Как получить текст из edit?
 
dolphinДата: Среда, 28.07.2010, 19:10 | Сообщение # 2
Администратор
Сообщений: 906
Статус: Offline
Поищи заголовок через SPYXX или подобных программ

пример

procedure TMyForm.Button1Click(Sender: TObject);
var h,sh: integer;
begin
h:= FindWindow(nil, 'SSS'); //находим окно по капшену
//SetWindowText(h, 'Ну, ты попал...'); //можно поменять капшен
Label1.Caption:=IntToSTr(h);//выводим хэндл окна
sh:= FindWindowEx(h,0,0,'Edit1'); //находим edit по тексту в нем
Label2.Caption:=IntToSTr(sh);//выводим хэндл эдита
SendMessage(sh, WM_SETTEXT, 0, LParam(PChar('MyText222')));//засылаем новый текст в эдит
Application.ProcessMessages;
end;

Прикрепления: Project1.rar (155.1 Kb)


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик


Сообщение отредактировал dolphin - Среда, 28.07.2010, 19:14
 
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz