Windows Hook WNDPROC

Hi and sorry for my bad english,
i need to Hook a single form of a process (.exe) and i need to get all windows messages.

I've tyred to wirte a function so that:

    if FHWND <> 0 then begin
      LPID := GetWindowPID(FHWND);
      LProcess := OpenProcess(PROCESS_CREATE_THREAD +
        PROCESS_QUERY_INFORMATION +
        PROCESS_VM_OPERATION +
        PROCESS_VM_WRITE +
        PROCESS_VM_READ,
        False,
        LPID
        );
      if LPID <> 0 then begin
        KBHook := SetWindowsHookEx(WH_CALLWNDPROC, @HookProc, LProcess, FHWND);
      end;

but my HookProc don't receive any message.
I must write a procedure to get the message like Spy++ on a specified form (Handle).

Thank 2 all
carmas123Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Dagan HooverDeveloperCommented:

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
carmas123Author Commented:
Hi and thanks very much for your solution,
but this solve my problem partialy.

I've edited the sample for me, but i've another problem now.
I want to intercept the message like WM_ACTIVATE or other like WM_USER
for only one form in a process, but your sample attach the wndproc to
a threadID and i receive all the message from all form in this thread.

I attach my sample.
thank
myHOOK.zip
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.