Question

截获应用程序对系统时间调用的钩子程序

delphi中randomize调用系统时间(毫秒级)作为随机函数的初始种子，为了实现某一程序每次执行randomize时所初始化的种子相同，我想找一个上述功能的钩子程序截获系统时间并修改成为同一值。希望大虾赐教，高分悬赏。

Answer 1

钩子(Hook)，是Windows消息处理机制的一个平台,应用程序可以在上面设置子程以监视指定窗口的某种消息，而且所监视的窗口可以是其他进程所创建的。当消息到达后，在目标窗口处理函数之前处理它。钩子机制允许应用程序截获处理window消息或特定事件。
钩子实际上是一个处理消息的程序段，通过系统调用，把它挂入系统。每当特定的消息发出，在没有到达目的窗口前，钩子程序就先捕获该消息，亦即钩子函数先得到控制权。这时钩子函数即可以加工处理（改变）该消息，也可以不作处理而继续传递该消息，还可以强制结束消息的传递。