Использование HOOK в Дельфи

Code:

program sticker;

uses windows, messages;

var

wc : TWndClassEx;

MainWnd : THandle;

Mesg : TMsg;

//экспортируем две функции из библиотеки с НООК'ами

procedure Start; external 'lib2.dll' name 'Start';

procedure Remove; external 'lib2.dll' name 'Remove';

function WindowProc(wnd:HWND; Msg : Integer; Wparam:Wparam; Lparam:Lparam):Lresult; stdcall;

var

nCode, ctrlID : word;

Begin

case msg of

wm_destroy :

  Begin

  Remove;//удаляем НООК

  postquitmessage(0); exit;

  Result:=0;

  End;

else

  Result:=DefWindowProc(wnd,msg,wparam,lparam);

end;

End;

begin

wc.cbSize:=sizeof(wc);

wc.style:=cs_hredraw or cs_vredraw;

wc.lpfnWndProc:=@WindowProc;

wc.cbClsExtra:=0;

wc.cbWndExtra:=0;

wc.hInstance:=HInstance;

wc.hIcon:=LoadIcon(0,idi_application);

wc.hCursor:=LoadCursor(0,idc_arrow);

wc.hbrBackground:=COLOR_BTNFACE+1;

wc.lpszMenuName:=nil;

wc.lpszClassName:='WndClass1';

RegisterClassEx(wc);

MainWnd:=CreateWindowEx(0,'WndClass1','Caption',ws_overlappedwindow,

          cw_usedefault,cw_usedefault,cw_usedefault,cw_usedefault,0,0,

          Hinstance,nil);

ShowWindow(MainWnd,CmdShow);

Start;//вставляем НООК

While GetMessage(Mesg,0,0,0) do

begin

TranslateMessage(Mesg);

DispatchMessage(Mesg);

end;

end.