mcommonval.pas

来自「帮助编写程序」· PAS 代码 · 共 29 行

unit mCommonVal;

interface

uses Classes, IdHTTP{, dbFile};

const
  VERSION = '2.03';

  Caption_frmMain = ' - chm格式制作工具 v' + VERSION;

  File_Type_DCP = '(Lily Digest Chm 项目文件) *.dcp|*.dcp';
  File_Type_DCC = '(Lily Digest Chm 配置文件) *.dcc|*.dcc';

  File_INI = 'LilyDigestChm.ini';

var
  WorkDir: string; //工作根目录
  OpenFile: string; //打开的项目文件位置
  PersonalRun: Boolean; //是否是个人用户运行
  BoardsList: TStringList; //所有版面列表
  {db: TdbFile;
  HTTP: TIdHTTP; }

implementation

end.