Re[3]: Получить текст
Направление таково:
var
MW,Edt :HWND;
begin
GetMem(lpBf, 255);
// Получаем хэндл окна
MW := FindWindow(PChar(<Имя_Класса>), PChar(<Заголовок_Окна>);
// если не знаешь Имя_Класса окна с едитами, замени PChar(<Имя_Класса>)
на nill
// первый дочерний элемент
edt := GetWindow(MW, GW_CHILD);
Tag := GetClassName(edt, lpBf, 255);
while edt > 0 do
begin
if StrPas(lpBf) = 'Edit' then
begin
SendMessage(edt, WM_GETTEXT, lpBf, 255);
// Теперь делаем свои дела со нультерминальной строкой lpBf
(здесь мы предположили, что строка не длинее 255 символов. Надо больше -
измени везде 255 на бОльшее число. А для конвертации нультерминальной строки
в нормальную используй StrPas(lpBf)
end;
// следующий объект в окне
edt := GetWindow(edt, GW_HWNDNEXT);
Tag := GetClassName(edt, lpBf, 255);
end;
FreeMem(lpBf, 255);
end;
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
