枚举系统中的全局消息钩子，网上有c和vb版的，把它转成了delphi-Enumeration in the system global message hook, on-line with c, vb version, turn it into delphi