Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.049 c
1-1095075552
Chizh
2004-09-13 15:39
2004.09.26
Конструкция with...do


1-1094555896
ZDenis
2004-09-07 15:18
2004.09.26
ООП


1-1094827882
redlord
2004-09-10 18:51
2004.09.26
пауза


14-1094447251
Layner
2004-09-06 09:07
2004.09.26
Японский отряд 731


1-1094817464
AlexA
2004-09-10 15:57
2004.09.26
service application, Thread