Вниз
Скачать: CL | DM;

Слежение за программой   Найти похожие ветки 

← →
BoxTer ©   (2003-10-03 12:25) [0]

Доброе время суток.
У меня возникла такая трабла: например работает фотошоп(или другое), параллельно работает моя прога, как мне в ней поймать в некий момент времени заголовки всех открытых окон в фотошопе?
Заранее благодарен.


← →
Zergling ©   (2003-10-03 12:37) [1]

Статьи и FAQ


← →
BoxTer ©   (2003-10-03 13:02) [2]

да вот роюсь, не могу найти...


← →
Юрий Зотов ©   (2003-10-03 13:50) [3]

Один из вариантов.

Вначале один раз:
FindWindow(Ex) - находим главное окно программы.
GetWindowThreadProcessID - запоминаем ID ее процесса.

Теперь в нужный момент вызываем EnumWindows, а в callback"е вызываем GetWindowThreadProcessID, проверяя окно на принадлежность к тому же процессу. Если да - посылаем WM_GETTEXT. Все.


← →
Erik   (2003-10-03 15:47) [4]

Было бы полезно кинуть такой вариант в кладовку, в свое время я тоже искал и тоже ненашол.


← →
BoxTer ©   (2003-10-03 21:08) [5]

sendmessage возвращает значение 0, а мне нуно строку - имя окна. Как в итоге, например, затолкать значение в Label1 ?
Если не трудно, как мне правильно написать sendmesage в этом случае?


← →
BoxTer ©   (2003-10-04 18:56) [6]

Могет кто-нибудь может примерчик коротенький кинуть...


← →
False_Delirium ©   (2003-10-05 08:58) [7]

EnumChildWindows


← →
DVM ©   (2003-10-05 14:41) [8]


> sendmessage возвращает значение 0, а мне нуно строку - имя
> окна.

А хэлп читать не пробовали по WM_GETTEXT???

function GetTextFromWindow(hWnd: HWND): string;
var
TextLength: Integer;
Text: PChar;
begin
TextLength := SendMessage(hWnd, WM_GETTEXTLENGTH, 0, 0);
if TextLength = 0 then Result := ""
else
begin
GetMem(Text, TextLength + 1);
SendMessage(hWnd, WM_GETTEXT, TextLength + 1, longint(Text));
Result := Text;
FreeMem(Text);
end;
end; // End of function GetTextFromWindow


← →
BoxTer ©   (2003-10-05 18:55) [9]

А как вычислить, что hWnd, передаваемое в sendmessage принадлежит именно дочернему окну многооконного интерфейса?


← →
Song ©   (2003-10-05 19:15) [10]

По классу.



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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.019 c
1-51224
@Ujin
2003-10-03 18:20
2003.10.16
Интерфейс для TForm


4-51555
Rel_
2003-08-11 10:55
2003.10.16
возможности ScrollBar


3-51122
KIR
2003-09-24 18:39
2003.10.16
Страшно тормозит запрос к базе IB


3-51128
Chery
2003-09-22 14:57
2003.10.16
Midas - клиентская часть - обновление данных на форме.


1-51164
Shuhkoman
2003-10-05 14:17
2003.10.16
Help! Языковая понель :)




   Наверх