请高手进来：如何hook CreateTextServices？

[fisher_older]

看了“浅谈API HOOK技术”，能够hook住大部分API函数，如textout等。但是尝试hook CreateTextServices始终不成功。发现RepointFunction(@OldCreateTextServices, @MyCreateTextServices);返回值始终是零。

有做过的大侠吗？能否赐教一二？
最好是delphi，VC的也行，谢谢了。