uconst.pas

来自「一个简单的开机保护程序 无任何控件 全api编写 关键字 ：键盘钩子」· PAS 代码 · 共 31 行

unit uConst;

interface
const
  MutexName      = 'SAFE_Windows';
  ClassName      = 'TMySYSWindow';
  MainWName      = 'SysWindow_IORI';
  TrayWindow     = 'Shell_TrayWnd';

  ERR_ALREADYRUN = '程序已经运行';
  SYS_INFO       = '提示';
  ERR_PASS       = '没密码别来动我的电脑！';
  SYS_INTO       = '进入Windows';
  PassWord       = '520';
  MYDLL          = 'MYDLL';
  FONT_NAME      = '宋体';
  BUTTON_CLASS   = 'BUTTON';
  EDIT_CLASS     = 'EDIT';

  ID_REG_RUN     = 'SOFTWARE\microsoft\Windows\CurrentVersion\Run';
  ID_REG_NAME    = 'SysWindow';

  HookDll        = 'MYHook.dll';
  BUTTON_ID      = 100;
  EDIT_ID        = 101;
  ICO_ID         = 102;

implementation

end.