DebugHook的巧用

编写信息管理系统类的应用程序,一般都有登录窗口,以便控制用户的登录和权限.但在调试时每次都要输入密码比较麻烦,尤其是对密码的长度和复杂程度有控制,暂时屏蔽也比较麻烦,其实可以使用Delphi的一个变量来简单控制,这个变量就是DebugHook.

该变量在调试状态下值为1,运行模式为0,例如,我们可以使用如下的代码来简单控制:

if DebugHook=0 then
  CheckLogin
else
  LoginSuccess

这样,我们在调试程序时可以不再检查登录,而发布应用程序时客户则必须进行登录验证.当然,我们也可以使用这个变量来做一些只在调试模式下才做的工作,比如输出日志等.