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

Вниз

Событие по созданию окна,процесса   Найти похожие ветки 

← →
SergeySEM ©   (2003-07-25 12:41) [0]

Привет Всем Мастерам !
у меня прога работает с таймером OK-OB
следит за окнами которые появляются в windows
и исчезают делая из этого нужные выводы
типа закрыть, свернуть, скрыть
но у меня есть идея сделать то-же но
без участия таймера и загрузки процессора
то есть работать по событию
пожалуйста скажите мне какое событие отвечает за это

---

← →
Игорь Шевченко ©   (2003-07-25 13:06) [1]

SetWindowsHookEx (WH_CBT, ...)

---

← →
SergeySEM ©   (2003-07-25 13:47) [2]

комп у меня вешается можно поподробнее
мне Hook кидать в Dll что-ли

var
Form1: TForm1;
MyHook: HHOOK;

implementation

{$R *.dfm}

function KeyboardProc(hCode: Integer; wParam: Longint; lParam: Longint): LRESULT; stdcall;
begin
Form1.Label1.Caption:="Ok" ;
Result := CallNextHookEx(MyHook, hCode, wParam, lParam);
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
MyHook := SetWindowsHookEx(WH_CBT, @KeyboardProc, HInstance, 0);
if MyHook <> 0 then Caption:="Hook стоит";
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
( MyHook) комп у меня вешается можно поподробнее
мне Hook кидать в Dll что-ли

var
Form1: TForm1;
MyHook: HHOOK;

implementation

{$R *.dfm}

function KeyboardProc(hCode: Integer; wParam: Longint; lParam: Longint): LRESULT; stdcall;
begin
Form1.Label1.Caption:="Ok" ;
Result := CallNextHookEx(MyHook, hCode, wParam, lParam);
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
MyHook := SetWindowsHookEx(WH_CBT, @KeyboardProc, HInstance, 0);
if MyHook <> 0 then Caption:="Hook стоит";
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
UnhookWindowsHookEx(MyHook);
end;

---

← →
Guerrillero ©   (2003-07-26 00:58) [3]

http://www.delphimaster.ru/articles/hooks/index.html

---

← →
__Ed__   (2003-07-26 09:59) [4]

Пример у SergeySEM немного некорректен, т.к. код глобальный хук должен располагаться в DLL"ке. У меня возникала подобная же задача, но к сожалению, из-за нехватки времени, я её не довёл до ума. Но на грабли расположения хука в EXE"шнике я уже наступил :)

Поэтому просьба к SergeySEM: когда отадишь код перехвата создания окон, кинь мне плиз образец на <URL>stealth@proton-sss.ru</URL>!

---

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

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

Наверх

Память: 0.48 MB
Время: 0.017 c