util.pas

在深度历险网站上发布的所有delphi程序原码。对初学delphi者很有用。

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 = '"穝灿