Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.03.29;
Скачать: CL | DM;

Вниз

Событие смена активного окна в винде   Найти похожие ветки 

 
312kbps   (2008-04-17 12:00) [0]

Уважаемые профессионалы.
Подскажите пожалйста мне, как в моей программе отследить смену активного окна в виндовс, типа какого события в моей програме !?

Спасибо !


 
<>   (2008-04-17 12:49) [1]

Может быть вот так:


VAR A:HWND;

procedure TForm1.Timer1Timer(Sender: TObject);
VAR H:HWND;
begin
H:= GetForegroundWindow();
IF A<> H THEN  Application.Title:=IntToStr(H);
A:=H;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 A:=GetForegroundWindow();
end;


 
Palladin ©   (2008-04-17 12:52) [2]

профессионалы... слово то какое...  :)
а с чего вдруг твоя программа должна уведомлятся о том, что активное окно виндовс сменилось? она только о своем активировании/деактивировании будет знать. а что бы следить за телодвижениями пользователя с окнами, нужно будет такую серьезную штуку сделать, как хук (hooks) реализовать. страшно? а может не надо? у меня ощущение что ты все равно ничего не поймешь, хотя может кто сердобольный даст тебе код, но ты все равно его тупо скопируешь и вставишь, а смысл в этом какой?... а никакого... а вот подсказку куда копать я тебе уже сделал... копай...


 
312kbps   (2008-04-17 14:05) [3]

я знаю что надо использовать хук
SetWindowsHookEx

я не знаю как будет называться эта ловушка, тип ловушки
idHook - !?


 
Palladin ©   (2008-04-17 14:13) [4]

в справке все виды ловушек перечисленны и достаточно подробно описаны


 
312kbps   (2008-04-17 15:31) [5]

блин, не нашел я в справке, может не умею пользоваться, а может и нету у меня этого в справке (((
подскажите как она называется !?
пожалуйста )


 
312kbps   (2008-04-17 18:00) [6]

WH_SHELL


 
DVM ©   (2008-04-18 10:57) [7]

Можно и без хуков обойтись.



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

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

Наверх




Память: 0.48 MB
Время: 0.027 c
1-1208178791
Версия для печати
2008-04-14 17:13
2009.03.29
Как сменить цвет заголовка колонок ListView?


6-1201598586
valenok
2008-01-29 12:23
2009.03.29
Использование ReadLn в компоненте IdTCPServer


2-1233487037
killaTank
2009-02-01 14:17
2009.03.29
Создание базы (Db) с помошью Delphi


2-1233218140
arhis
2009-01-29 11:35
2009.03.29
Закрытие программы


1-1207857224
тКнопка
2008-04-10 23:53
2009.03.29
Как узнать, сколько копий приложения запущенно?