channelplayer.dpr

来自「《Delphi实例开发教程》源代码包说明」· DPR 代码 · 共 38 行

program ChannelPlayer;

uses
  Forms,
  MainFrm in 'MainFrm.pas' {frmMain},
  MaintainFrm in 'MaintainFrm.pas' {frmMaintain},
  RollingNewsFrm in 'RollingNewsFrm.pas' {frmRollingNews},
  SettingFrm in 'SettingFrm.pas' {frmSetting},
  CustomSearchFrm in 'CustomSearchFrm.pas' {frmCustomSearch},
  ViewInfoFrm in 'ViewInfoFrm.pas' {frmViewInfo},
  BrowserFrm in 'BrowserFrm.pas' {frmBrowser},
  DisplayFrm in 'DisplayFrm.pas' {frmDisplay},
  InputFra in 'InputFra.pas' {fraInput: TFrame},
  DisplayFra in 'DisplayFra.pas' {fraDisplay: TFrame},
  UnitSearch in 'UnitSearch.pas',
  ViewFra in 'ViewFra.pas' {fraView: TFrame},
  SplashFrm in 'SplashFrm.pas' {frmSplash};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '信息搜索系统';
  Application.HelpFile := 'E:\暑期工作\ChannelPlayer\exe\Help\帮助.chm';
  frmSplash := TfrmSplash.Create(nil);
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmMaintain, frmMaintain);
  Application.CreateForm(TfrmSetting, frmSetting);
  Application.CreateForm(TfrmRollingNews, frmRollingNews);
  Application.CreateForm(TfrmCustomSearch, frmCustomSearch);
  Application.CreateForm(TfrmViewInfo, frmViewInfo);
  Application.CreateForm(TfrmBrowser, frmBrowser);
  Application.CreateForm(TfrmDisplay, frmDisplay);
  frmSplash.Close;
  frmSplash.Free;
  Application.Run;
end.