book.dpr

delphi 电子书阅读器 外观非常漂亮

{
模块名称：工程文件

使用方法：无

返回值：  无
}

program Book;

uses
  Registry,
  Windows,
  Forms,
  UnZip32,
  Main in 'Main.pas' {FormMain},
  Setup in 'Setup.pas' {FormSetup},
  InputYe in 'InputYe.pas' {FormInputYe},
  About in 'About.pas' {FormAbout},
  Game in 'Game.pas' {FormGame},
  GameAbout in 'GameAbout.pas' {FormGameAbout},
  Mess in 'Mess.pas' {FormMess},
  LabelInput in 'LabelInput.pas' {FormLabelInput},
  ClearNew in 'ClearNew.pas' {FormClearNew},
  MoreName in 'MoreName.pas' {FormMoreName},
  Alarm in 'Alarm.pas' {FormAlarm},
  MP3Play in 'MP3Play.pas' {FormMP3Play},
  Search in 'Search.pas' {FormSearch},
  ZipPrev in 'ZipPrev.pas' {FormZipPrev},
  Global in 'Global.pas',
  Language in 'Language.pas' {FormLanguage},
  ZipPassword in 'ZipPassword.pas' {FormZipPassword};

{$R *.RES}

begin
	//初始化程序
	Application.Initialize;
	Application.Title := '电子小说阅读器';

	//建立注册表
	g_Regini := TRegIniFile.Create('');
	g_Regini.RootKey := HKEY_LOCAL_MACHINE;

	//连接ZIP库
	LoadZIPDLL;

	//连接语言库
	g_strLanguageDLL := RegReadStr(c_strRegPath, c_strRegLanguageDLL, c_strLanguageDLL);  //外挂语言库文件
	LoadLanguageDLL;

	//建立多语言窗口
	FormLanguage := TFormLanguage.Create(Application);

	//建立显示信息窗口
	FormMess := TFormMess.Create(Application);

	//建立MP3播放窗口
	FormMP3Play := TFormMP3Play.Create(Application);

	//建立查找窗口
	FormSearch := TFormSearch.Create(Application);

	//建立隐藏游戏窗口
	FormGame := TFormGame.Create(Application);

	//建立主窗口
	Application.CreateForm(TFormMain, FormMain);
	Application.Run;

	//释放各个窗口
	FormGame.Free;
	FormSearch.Free;
	FormMP3Play.Free;
	FormMess.Free;
	FormLanguage.Free;

	//释放语言库
	UnloadLanguageDLL;

	//释放ZIP库
	UnLoadZIPDLL;

	//释放注册表
	g_Regini.Free;

	//中断程序
	Application.Terminate;
end.