Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

хуки и shellproc 


alexey1   (2002-02-23 20:06) [0]

Всем привет!
Задача: при создании системой какого-либо окна, передать в мою прогу
хендл созданного окна и класс окна

я поставил только хук. что нужно добавить что бы передавался
хендл созданного процесса и класс окна?????????????????????

Хук в DLL:

function shellproc(Code, W,l : Integer): LongInt; stdcall;

var
j,i:integer;
begin
if Code =HSHELL_WINDOWCREATED //говорит о том, что создано окно
then
begin
i:= HSHELL_WINDOWCREATED; // помоему i всегда = 1
SendMessage(FindWindow(PCHAR("TFORM1"),"MouseHook"), WM_USER+111,0 ,I); // Уведомляем программу об этом.
end;
Result := CallNextHookEx(HookHandle, Code, W,L )
end;

function SetHook1: LongBool; stdcall;
begin
//установка ловушки
HookHandle := SetWindowsHookEx(WH_SHELL, shellproc, HInstance, 0);
Result := HookHandle <> 0 ;
end;

function RemoveHook1: LongBool; stdcall;
begin
Result := UnHookWindowsHookEx(HookHandle) ;end;

exports
SetHook1, RemoveHook1; //экспортируемые функции

и каким должен обработчик в программе для хука?
я только смог написать следующее:

procedure user111(var message:Tmessage) ; message wm_user+111;

procedure TForm1.user111(var message:Tmessage);
begin
label9.caption:=INTTOSTR(MESSAGE.WParam);
LABEL10.Caption:=INTTOSTR(MESSAGE.LParam);
end;

Что-то по этому поводу говорила Fellomena!
Может ещё кто-нибудь подскажет????????????

Заранее благодарен.



alexey1   (2002-02-24 11:30) [1]

кто-нибудь знает?



Raptor   (2002-02-24 16:08) [2]

Кто-нибудь точно знает. ;-))
Например хелп.
Открываем его и читаем:

The ShellProc hook procedure is an application-defined or library-defined callback function used with the SetWindowsHookEx function. The function receives notifications of shell events from the system.

LRESULT CALLBACK ShellProc(
int nCode, // hook code
WPARAM wParam, // event-specific information
LPARAM lParam // event-specific information
);

Parameters
nCode
Specifies the hook code. This parameter can be one of the following values. Value Meaning
HSHELL_ACCESSIBILITYSTATE Windows NT 5.0 and later: The accessibility state has changed.
HSHELL_ACTIVATESHELLWINDOW The shell should activate its main window.
HSHELL_GETMINRECT A window is being minimized or maximized. The system needs the coordinates of the minimized rectangle for the window.
HSHELL_LANGUAGE Keyboard language was changed or a new keyboard layout was loaded.
HSHELL_REDRAW The title of a window in the task bar has been redrawn.
HSHELL_TASKMAN The user has selected the task list. A shell application that provides a task list should return TRUE to prevent Windows from starting its task list.
HSHELL_WINDOWACTIVATED The activation has changed to a different top-level, unowned window.
HSHELL_WINDOWCREATED A top-level, unowned window has been created. The window exists when the system calls a ShellProc function.
HSHELL_WINDOWDESTROYED A top-level, unowned window is about to be destroyed. The window still exists when the system calls a ShellProc function.

If nCode is less than zero, the hook procedure must pass the message to the CallNextHookEx function without further processing and should return the value returned by CallNextHookEx.

wParam
The value depends on the value of the nCode parameter, as shown in the following table. nCode wParam
HSHELL_ACCESSIBILITYSTATE Indicates which accessibility feature has changed state. This value is one of the following: ACCESS_FILTERKEYS, ACCESS_MOUSEKEYS, or ACCESS_STICKYKEYS.
HSHELL_GETMINRECT Handle to the minimized or maximized window.
HSHELL_LANGUAGE Handle to the window.
HSHELL_REDRAW Handle to the redrawn window.
HSHELL_WINDOWACTIVATED Handle to the activated window.
HSHELL_WINDOWCREATED Handle to the created window.
HSHELL_WINDOWDESTROYED Handle to the destroyed window.

lParam
The value depends on the value of the nCode parameter, as shown in the following table. nCode lParam
HSHELL_GETMINRECT Pointer to aRECT structure.
HSHELL_LANGUAGE Handle to a keyboard layout.
HSHELL_REDRAW The value is TRUE if the window is flashing, or FALSE otherwise.
HSHELL_WINDOWACTIVATED The value is TRUE if the window is in full-screen mode, or FALSE otherwise.


Из этого следует, что в wParam, при nCode=HSHELL_WINDOWCREATED мы имеем хендл сотворенного окна. Ну вот его и посылай своей проге, которая, имея хендл, при помощи GetClassName может получить класс окна.
Вместо этого ты почему-то отсылаешь ей значение переменной I, а эта переменная, как видно из твоего кода
i:=HSHELL_WINDOWCREATED;
всегда равна константе (HSHELL_WINDOWCREATED - это константа).
Делай так:

SendMessage(FindWindow(PCHAR("TFORM1"),"MouseHook"), WM_USER+111,0 ,W);




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.041 c
7-94577           Александр!            2002-01-29 12:12  2002.04.29  
OpenGL


4-94612           Grim Rider            2002-02-22 06:24  2002.04.29  
PostMessage или приказано


3-94277           DANCHA                2002-04-06 09:57  2002.04.29  
Компонент TADOTable и глюки в работе с ним


1-94387           Darlok                2002-04-17 16:24  2002.04.29  
Проблема с Delphi6


1-94361           ALM                   2002-04-17 12:51  2002.04.29  
Странное дело, однако...