Главная страница
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.022 c
6-1089980510
VOVA
2004-07-16 16:21
2004.09.26
подкинте исходник передачи файла по сети


3-1093853343
Klerk
2004-08-30 12:09
2004.09.26
Запрос по полю "Size"


3-1093964749
Morrison
2004-08-31 19:05
2004.09.26
Как изменить структуру таблицы (програмно)?


14-1094235016
Verg
2004-09-03 22:10
2004.09.26
Я плачу....


1-1094581005
XAdmin
2004-09-07 22:16
2004.09.26
Использование ZipTV