Description: hook function
procedure HookWindow(hWnd: HWND)
var
Item: PItem
begin
if FindWindowProc(hWnd, HandleList) = nil then
begin
GetMem(Item,Sizeof(TItem))
Item.hWnd:= hWnd
Item.Next:= HandleList
Item.WndProc:= Pointer(SetWindowLong(hWnd,GWL_WNDPROC,LongInt(@WindowProc)))
HandleList:= Item
end
end
To Search:
File list (Check if you may need any files):
hook.txt
índice.jpg
Download