Текущий архив: 2004.09.26;
Скачать: CL | DM;

Вниз

Текст, активного окна.   Найти похожие ветки 

← →
Dextor   (2004-08-12 20:52) [0]

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

---

← →
VMcL ©   (2004-08-12 20:58) [1]

WM_GETTEXT

---

← →
Dextor   (2004-08-13 22:13) [2]

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

---

← →
VMcL ©   (2004-08-14 01:19) [3]

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

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

---

← →
Sergey Kaminski ©   (2004-08-14 07:45) [4]

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


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 и наслаждаешься результатом :)

---

← →
Dextor   (2004-08-14 18:02) [5]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.09.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.04 c