Email服务器

开发平台：

Delphi

DUnitMainForm.dfm：源码内容

							inherited DUnitForm: TDUnitForm
  Left = 151
  Top = 71
  Caption = 'DUnit'
  PixelsPerInch = 96
  TextHeight = 13
  inherited MainMenu: TMainMenu
    inherited FileMenu: TMenuItem
      object LoadTests1: TMenuItem [0]
        Action = LoadTestsAction
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object AboutItem: TMenuItem
        Action = AboutAction
      end
    end
  end
  object DUnitActions: TActionList
    Left = 18
    Top = 114
    object LoadTestsAction: TAction
      Category = 'File'
      Caption = '&Load Tests...'
      ShortCut = 16463
      OnExecute = LoadTestsActionExecute
    end
    object UnloadTestscAction: TAction
      Category = 'File'
      Caption = '&Unload Tests'
      ShortCut = 16469
    end
    object AboutAction: TAction
      Category = 'Help'
      Caption = '&About'
      OnExecute = AboutActionExecute
    end
  end
  object OpenTestsDialog: TOpenDialog
    DefaultExt = '*.dlt'
    Filter = 'DUnit Test Library (*.dtl,*.dll)|*.dtl;*.dll|All Files|*.*'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 82
    Top = 114
  end
end

						