delphi HOOK api 后，如何获得相对应的程序的HANDLE

菜鸟问题，我想HOOK messagebeep函数，然后找出是哪个程序调用了这个函数，前半部分可以实现，网上刚好有这个例子(http://www.)，我试过了，是可以的，后半部分我不知道可不可以实现，如果可以的话，请高手指教一下，如何获得对应的程序