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

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

Текст, активного окна. [D7, WinXP]

Dextor ©   (2004-08-12 20:52:00) 

Добрый вечер! Подскажите, как получить текст активного окна. Спасибо!

---

Dextor   (2004-08-14 18:02:00) [1]

ОГРОМНОЕ спасибо ВСЕМ!!!

---

Sergey Kaminski   (2004-08-14 07:45:00) [2]

Примерно так.


var
 H: HWND;
 Len: Integer;
 PText: PChar;
begin
 H := GetForegroundWindow;
 if H <> 0 then
 begin
   Len := GetWindowTextLength(H);
   if Len <> 0 then
   begin
     GetMem (PText,Len+1);
     GetWindowText (H,PText,Len+1);
     Caption := PText;
     FreeMem (PText,Len+1);
   end;
 end;
end;


Запиваешь это дело в обработчик OnTimer, присваиваешь таймеру Interval := 50, а форме FormStyle := fsStayOnTop и наслаждаешься результатом :)

---

VMcL   (2004-08-14 01:19:00) [3]

>> Dextor  (13.08.04 22:13) [2]

Пожалуйста: http://tinyurl.com/3ees5

---

Dextor   (2004-08-13 22:13:00) [4]

Можно ли чуть точнее.

---

VMcL   (2004-08-12 20:58:00) [5]

WM_GETTEXT

---

Наверх