| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

инфа из TMemo [D7, WinXP]

reborn ©   (2005-01-23 12:13:00) 

Привет,мастера!помогите написать прогу которая бы выдерала из друго окна,назовём его XXX ,объекта Tmemo,инфу и писала в Tmemo,только формы,уже моей программы.Заранее спасибо!

---

Piter   (2005-01-23 19:28:00) [1]

reborn   (23.01.05 16:32) [4]
А НЕ ПОДСКАЖЕТЕ КАКИМ СПОСОБ МНЕ ЭТО РЕАЛИЗОВАТЬ?

очень просто это реализовать:

1) Найти другое окно
2) найти в нем элемент TMemo
3) выдернуть информацию из этого TMemo

Вот так это надо реализовать.

---

reborn   (2005-01-23 16:44:00) [2]

спасибо,сейчас попробую....

---

-=SS=-   (2005-01-23 16:39:00) [3]

Подойдёт ?  
 Если чё не откомпилится -- извеняй .... делфи под рукой не было

---

-=SS=-   (2005-01-23 16:37:00) [4]

Что то вроде этого
Var
 H,H_Memo : THandle;
 BufSize : Integer;
 Buf : PAnsiChar;
begin
 H := FindWindow(nil,'Form1');
 H_Memo := FindWindowEx(H,0,'TMemo',nil);
 BufSize := SendMessage(H_Memo,WM_GETTEXTLENGTH, 0, 0);
 ShowMessage(IntToSTr(BufSize));
 New(Buf);
 SendMessage(H_Memo, WM_GETTEXT, BufSize, Longint(Buf));
 Memo1.SetTextBuf(Buf);
 Dispose(Buf);

---

reborn   (2005-01-23 16:32:00) [5]

нет,хотел спросить  А НЕ ПОДСКАЖЕТЕ КАКИМ СПОСОБ МНЕ ЭТО РЕАЛИЗОВАТЬ?что для этого надо?

---

-=SS=-   (2005-01-23 16:19:00) [6]

> Piter ©   (23.01.05 16:04) [1]

Он наверное хотел спросить, - "А не напишет ли хто вместо меня прогу которая бы выдерала ...."

---

-=SS=-   (2005-01-23 16:19:00) [7]

> Piter ©   (23.01.05 16:04) [1]

Он наверное хотел спросить, - "А не напишет ли хто вместо меня прогу которая бы выдерала ...."

---

Piter   (2005-01-23 16:04:00) [8]

и что у тебя не получается?

---

Наверх