![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перехват названий окон и приложений [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]так окон или приложений?