define.pas

来自「用delphi 编写的 验证码识别程序」· PAS 代码 · 共 33 行

unit Define;

interface

uses
  SysUtils;

type
  TBtnStat = (bsRunning, bsPaused, bsNull);

const
  PRODUCT_NAME             =       '奥运歌曲投票器LY版';
  REG_KEY                  =       'flying99koo'; 
  IMG_CODE_PATH            =       'ImgCode\';
  ENGINE_URL               =       'http://qianghua.greatweb.cn/blog/';

var
  AppPath : string;
  RndSeed : string;
  bUseProxy : boolean;
  strProxyHost : string;
  strProxyPort : string;
  bNeedAuth : boolean;
  strProxyUser : string;
  strProxyPass : string;
  strRegCode : string;
  TimeTick : Integer;
  bIsReg : boolean;

implementation

end.