VPF::получение данных из нескольких Edit чужой формы

OrkZ

Дата 30.9.2011, 08:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 27.4.2007

Репутация: нет
Всего: нет

Собственно проблема в следующем:

пытаюсь получить значение из чужого окна
в окне несколько edit (TsDBEdit)

кое как получил handl одного из них

Код


var
  h,h1,h2,h3,h4,h5 : THandle;
  s: string;
  i:integer;
begin
h := FindWindow(nil, 'Данные');
h1:=FindWindowEx(h, 0, 'TsGroupBox', nil);
h2:=FindWindowEx(h,0,0,'Информация');
Label1.Caption:=Label1.Caption+' '+IntToSTr(h5);//выводим хэндл эдита
end;

и на этом всё встало :(

ума не приложу как получить остальное

AndreyIQ

Дата 30.9.2011, 08:28 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: нет
Всего: 8

Код


function WindowGetText(wnd:HWND):string;
var
 szText:array[0..MAX_PATH-1] of Char;
 dw:Cardinal;
begin
 Result:='';
 if ((SendMessageTimeOut(wnd,WM_GETTEXT,MAX_PATH,Cardinal(@szText),SMTO_ABORTIFHUNG,5000,dw) <> 0)
 and (dw<>0)) then Result:=szText;
end;

OrkZ

Дата 3.10.2011, 01:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 27.4.2007

Репутация: нет
Всего: нет

прекрасная функция для получения одного значения, как её применить для получения всех значений Edit.txt ?

bems

Дата 3.10.2011, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

Программирование означает, что иногда вам нужно сложить вместе несколько частей

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »