Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перехват названий окон и приложений [D7, WinXP]


Саня ©   (2008-11-26 08:39:00) 

Привет!!! Подскажите пожалуйста как получать все названия открываемых окон и приложений?!


  (2009-07-27 11:47:00) [1]

Удалено модератором


DVM   (2008-11-26 11:36:00) [2]


> Саня   (26.11.08 10:49) [10]
>
> А без DLL можно обойтись?

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1223043391&n=5мой пост [11]


Сергей М.   (2008-11-26 10:57:00) [3]

Для WH_CBT нельзя.


Саня   (2008-11-26 10:49:00) [4]

А без DLL можно обойтись?


Сергей М.   (2008-11-26 10:14:00) [5]

Начни хотя бы отсюда:
http://www.delphimaster.ru/articles/hooks/index.html


Сергей М.   (2008-11-26 10:06:00) [6]


> ЧТО НЕ ТАК ЗДЕСЬ


Абсолютно всё.
Статей по установке и использованию глоб.хуков в Сети навалом.
Читай, вникай ..


Саня   (2008-11-26 10:06:00) [7]

А как мне тогда получать названия всех окон в системе, которые открыты и которые в дальнейшем открываются? Что изменить в моем коде?


Саня   (2008-11-26 10:06:00) [8]

Подскажите где почитать поподробней и понятнее


Сергей М.   (2008-11-26 10:04:00) [9]


> WH_CBT


Это же не на "открытие" окна, а на создание ..
А оно м.б. создано невидимым, да еще и c пустым текстом титла..


Саня   (2008-11-26 10:03:00) [10]

пОДСКАЖИТЕ ЧТО НЕ ТАК ЗДЕСЬ. Не перехватывает!!!
var Hookhandle:hHook;
function myHook(code: integer;WParam:word;Lparam:Longint): Longint;stdcall;
 var msg:PEVENTMSG;
 begin
 with form1 do
 case msg.message of
 WH_CBT: memo1.Lines.Add(intToStr(msg.paramh));end;end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.FormStyle:=fsStayOnTop;
Hookhandle:=setWindowsHookEx(0,@myHook,HInstance,0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
if Hookhandle<>0 then UnhookWindowshookex(Hookhandle);
end;


Rouse_   (2008-11-26 09:53:00) [11]

WH_CBT


Саня   (2008-11-26 09:27:00) [12]

Окон


Palladin   (2008-11-26 09:16:00) [13]

так окон или приложений?


Наверх

Титульная страница Поиск, карта сайта Написать письмо