文件名称:hook
介绍说明－－下载内容均来自于网络，请自行研究使用
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 -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
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 -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
(系统自动生成,下载前可以参看下载内容)
下载文件列表
hook.txt
índice.jpg
índice.jpg