elmimeviewer.dpr

来自「著名的SecureBlackBox控件完整源码」· DPR 代码 · 共 36 行

program ElMimeViewer;
{$i ElMimeViewer_Options.inc}

uses
  Forms,
  ElMimeViewer_DataCommon in 'ElMimeViewer_DataCommon.pas' {dmElMime: TDataModule},
  ElMimeViewer_MainForm in 'ElMimeViewer_MainForm.pas' {frmMain},
  ElMimeViewer_OptionsParser in 'ElMimeViewer_OptionsParser.pas' {fraOptionsParser: TFrame},
  ElMimeViewer_Binary in 'ElMimeViewer_Binary.pas',
  ElMimeViewer_Image in 'ElMimeViewer_Image.pas',
  ElMimeViewer_PlainText in 'ElMimeViewer_PlainText.pas',
  ElMimeViewer_HtmlText in 'ElMimeViewer_HtmlText.pas' {fraHtmlText: TFrame},
  {$ifdef _UUE_}
  ElMimeViewer_OptionsUUE in 'ElMimeViewer_OptionsUUE.pas' {fraOptionsUUE: TFrame},
  {$endif}

  {$ifdef _PGP_}
  ElMimeViewer_OptionsPGPMime in 'ElMimeViewer_OptionsPGPMime.pas' {fraOptionsPGPMime: TFrame},
  {$endif}
  {$ifdef _SMIME_}
  ElMimeViewer_CertDetails in 'ElMimeViewer_CertDetails.pas' {fraSMIMEViewCert: TFrame},
  ElMimeViewer_SMime in 'ElMimeViewer_SMime.pas' {fraSMime: TFrame},
  ElMimeViewer_OptionsSMime in 'ElMimeViewer_OptionsSMime.pas' {fraOptionsSMime: TFrame},
  {$endif}
  ElMimeViewer_Message in 'ElMimeViewer_Message.pas' {fraMessage: TFrame};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'ElMimeViewer';
  Application.CreateForm(TdmElMime, dmElMime);
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.