Главная страница
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.048 c
3-1093931276
nalsur2002
2004-08-31 09:47
2004.09.26
Delphi и MSSQL


14-1094312068
Soft
2004-09-04 19:34
2004.09.26
Borland Delphi 7 Enterprise Edition (2CD) $60


14-1094564583
blackman
2004-09-07 17:43
2004.09.26
Загадка


1-1094634061
SLK
2004-09-08 13:01
2004.09.26
объединение текстовых файлов


1-1094971529
Leaner
2004-09-12 10:45
2004.09.26
Создание файла с именем пользователя. (Пользователь.txt)