rssnavigator.dpr

来自「自己写的一个 RSS 阅读器」· DPR 代码 · 共 62 行

program RssNavigator;

uses
  Forms,
  Windows,
  uMain in 'uMain.pas' {MainWindow},
  XFunctions in 'XFunctions.pas',
  AboutDialog_FRM in 'AboutDialog_FRM.pas' {AboutDialog},
  AddNewFeed_Frm in 'AddNewFeed_Frm.pas' {FmAddNewFeed},
  Comm in 'Comm.pas',
  FastStringFuncs in 'FastStringFuncs.pas',
  FastStrings in 'FastStrings.pas',
  MProperties in 'MProperties.pas',
  Option_FRM in 'Option_FRM.pas' {fmOption},
  SplashScreen_FRM in 'SplashScreen_FRM.pas' {SplashScreen},
  uFeed in 'uFeed.pas',
  uHTMLMessage in 'uHTMLMessage.pas' {fmHTMLMessage},
  uHtmlMessageDlg in 'uHtmlMessageDlg.pas' {fmHTMLMessageDlg},
  uLanguage in 'uLanguage.pas',
  uRssBase in 'uRssBase.pas',
  uW3CDTF in 'uW3CDTF.pas',
  MSXML2_TLB in 'MSXML2_TLB.pas',
  uAtomFeed in 'uAtomFeed.pas',
  uConstants in 'uConstants.pas',
  uOpml in 'uOpml.pas',
  uRDFFeed in 'uRDFFeed.pas',
  uRSSFeed in 'uRSSFeed.pas',
  uLocalRSS in 'uLocalRSS.pas',
  uStyle in 'uStyle.pas',
  FeedProperty_Frm in 'FeedProperty_Frm.pas' {fmFeedProperty},
  ChooseFolder_Frm in 'ChooseFolder_Frm.pas' {FmChooseFolder},
  newFolder_Frm in 'newFolder_Frm.pas' {fmNewFolder},
  flag_Frm in 'flag_Frm.pas' {fmFlag},
  uFlagBase in 'uFlagBase.pas',
  uFavorite in 'uFavorite.pas',
  Error_Frm in 'Error_Frm.pas' {fmError},
  search_Frm in 'search_Frm.pas' {fmSearch},
  Exceed_TLB in 'Exceed_TLB.pas',
  MyExternal in 'MyExternal.pas' {MyExternal: CoClass},
  ExportOPML_Frm in 'ExportOPML_Frm.pas' {fmExportOPML};

{$R *.TLB}

{$R *.res}
{$R Str.res}
{$R Images.res}
{$R XML.res}
begin
  Application.Initialize;
  //with TSplashScreen.Execute do
  //try
    Application.CreateForm(TMainWindow, MainWindow);
    Application.CreateForm(TfmNewFolder, fmNewFolder);
    Application.CreateForm(TfmFlag, fmFlag);
    Application.CreateForm(TFmChooseFolder, FmChooseFolder);
  //finally
  //  Free;
  //end;
  Application.Run;

end.