util.pas

来自「《Delphi深度历险》附书源码 Delphi学习书本」· PAS 代码 · 共 24 行

unit util;

interface

uses Windows, Messages;

type
  TSaverMode = (smSaver, smConfig, smPreview);
  
const
  REGISTRY_KEY        = 'Software\Xshadow\XEssaySaver\';
  
  SEC_GENERAL         = 'General';                      
  
  SEC_ESSAYFILES      = 'EssayFiles';                   
  
  REG_MOVESPEED       = 'MoveSpeed';                    
  REG_MOVEDELAYTIME   = 'MoveDelayTime';                
  REG_CLEARDELAYTIME  = 'ClearDelayTime';               
  REG_CHANGEDELAYTIME = 'ChangeDelayTime';              
  
  REG_DISPLAYFONT     = 'DisplayFont';                  
  
  DEFAULT_DISPLAYFONT = '"穝灿