⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 book.dpr

📁 一个很好的阅读器
💻 DPR
字号:
{
模块名称:工程文件

使用方法:无

返回值:  无
}

program Book;

uses
  Registry,
  Windows,
  Forms,
  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';

{$R *.RES}

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

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

	//建立显示信息窗口
	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;
	FormMess.Free;
	FormMP3Play.Free;

    //释放注册表
	g_Regini.Free;

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

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -