resourcestring 的好处

unit UnitUpdateConsts;

interface

resourcestring

注意这个地方不一样,与别的,好处是

const放在数据段里，是程序的一部分，需要变异  
  Resourcestring放在EXE资源也就是res里面，采用资源的好处一方面可让Windows   来完成有效的内存处理，另一方面不用更改源代码就可实现程序的本地化   (把字符串翻译成不同的语言)。

 

   
    sAppTitle = '公安GPS升级程序';
  sAppShowTitle = '欢迎使用公安GPS车辆监控系统软件智能升级程序';
//  sAppMainExeName = 'KQSys.exe';
//  sRestoreAppMainFile = 'bak/KQSys.exe';
  sUpdateExeName = 'Update.exe';
  sErrorLogName = 'Error.Log';
  sBackupConfigFile = 'SysData/Update.ini';

  //sUpdateUrl = 'update/';
  sBackupDir = 'bak';
  sSysDownDir = 'Sys';
  sSysDataDir = 'SysData';

  sAppNotifyTitle = '系统提示';
  sAppUnknowUrl = '不可识别的地址';
  sErrorOnUpdateProgress = '升级过程中出现了错误了,错误信息如下：%s';
  sUserInterrupt = '已被用户中断';

  sDownloadingFile = '正在下载新版本文件%S,请稍候...';
  sCancelUpdate = '中断升级';
  sGettingConfigFile = '正在获取升级配置文件,请稍候...';
  sErrorOnGetConfigFile = '获取升级配置文件失败，请梢候重试%s';
  sOnStartUpdateConfig = '正在启动升级配置文件...';
  sOnBackupOldFiles = '正在备份旧版本文件,请稍候...';
  sOnUpdateDbInfo = '正在更新数据库信息，请稍侯...';
  sOnUpdatingFiles = '正在更新本地程序，请稍侯...';
  sUpdateFinished = '恭喜，程序已经升级到最新版本';

  sErrorCopyToSysDir = '复制“%s”到系统目录下错误！,错误信息如下：%s';
  sFailedCopyToSysDir = '复制“%s”到系统目录下错误！%s请重新升级或手工复制文件。';
  sCancelUpdateNotify = '文件还没有下载完毕，确认要中断吗？';
  sAppExitNotify = '确认要退出程序吗？';
  sErrorIdHTTPWork = '错误，出现在事件IdHTTP1Work中';
  sErrorIdHTTPWorkBegin = '错误，出现在事件IdHTTP1WorkBegin中';
  sErrorAutoRun = '自动运行程序“%s”错误！目标文件不存在。';
  sUpdateOk = 'OK,程序升级成功!';

  sUpdateToNew = '从旧版本升级到新版本( %S )';
  sUpdateOldToNew = '从旧版本( %S )升级到新版本( %S )';

  sConfigVerIsSame = '系统已经是最新版本，是否还要升级？';
  sSysIsNewNotify = '程序“%s”已经是最新版本了，是否还要升级？';
  sContinueFileNotify = '系统检查到原先文件未下载完毕，是否续传？';

  sConfigFileName = 'update.htm';
  sConfigFileIniName = 'update.ini';

  // INI文件配置节信息
  sVerSectionName = 'Version';
  sVersionKey = 'Version';

  sFilesSectionName = 'FilesList';
  sFileKeyHead = 'file[%d]';

  sSysFilesSectionName = 'SysFilesList';
  sSysFileKeyHead = 'file[%d]';

  sAppInfoSectionName = 'AppInfo';
  sAppClassKey = 'AppClass';
  sAppCaptionKey = 'AppCaption';
  sAppFile = 'AppFile';
  sBakAppFile = 'BakAppFile';

  sAppRunSectionName = 'RunApp';

  sExeFileListSection = 'Exe FileList';

  sDbInfoSectionName = 'DB Info';
  sDBNameKey = 'DBName';
  sServerNameKey = 'ServerName';
  sUserNameKey = 'UserName';
  sPwdKey = 'PWD';

  sSqlSectionName = 'SQL';
  sSqlCountKey = 'SQLCount';

  sWWWSectionName = 'WWW';
  sURLKeyName = 'URL';
  sWebDefault = 'http://wuqing/update/';
 
implementation

end.