如何接收发往Tapplication的消息?注意,我写的是Service,不能用application.onmessage=XXX模块的方式,因为Service中根本没有此属性

Question

不会吧,就在同一个进程内还有必要用到HOOK?

Answer 1

放上一个 TApplicationEvents1 控件，在addtional页里。就可以处理一大堆app事件了，，，，，，，，，

Answer 2

请给一个通过API或Delphi内部代码实现的方法,我不想用控件

Answer 3

另外,我也没法用application.ProcessMessages,请问还有方法能实现类似功能吗?我用API sleep 好像不太好

Answer 4

notepad就给机子挂了一个hook来处理按键，这样做并不是不可以。
试一试用原始的peekmessage等来实现processmessages的功能行不行。

Answer 5

关于第一个问题:在Service Application的uses单元中加入forms后,就可以用application.OnMessage:=MyMessage;了,编译后的EXE文件仅大了1K左右,
关于第二个问题,也就一样也,直接application.ProcessMessages就出来了