frmmain.dfm

著名的SecureBlackBox控件完整源码

        Left = 8
        Top = 81
        Width = 406
        Height = 8
        Anchors = [akLeft, akTop, akRight]
        Shape = bsTopLine
      end
      object memAdditional: TMemo
        Left = 8
        Top = 315
        Width = 409
        Height = 156
        Anchors = [akLeft, akRight, akBottom]
        Lines.Strings = (
          '')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object lvCertProperties: TListView
        Left = 8
        Top = 92
        Width = 409
        Height = 213
        Anchors = [akLeft, akTop, akRight, akBottom]
        Columns = <
          item
            Caption = 'Field'
            Width = 160
          end
          item
            AutoSize = True
            Caption = 'Value'
          end>
        SmallImages = ilTree
        TabOrder = 1
        ViewStyle = vsReport
        OnChange = lvCertPropertiesChange
      end
    end
  end
  object OpenDlgCert: TOpenDialog
    Filter = 
      'Binary Encoded Certificate (*.cer)|*.cer|PEM Encoded Certificate' +
      ' (*.pem)|*.pem|PKCS12 Certificate (*.pfx)|*.pfx'
    InitialDir = '.'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 98
    Top = 136
  end
  object saveDlgCert: TSaveDialog
    Filter = 
      'Binary Encoded Certificate (*.cer)|*.cer|PEM Encoded Certificate' +
      ' (*.pem)|*.pem|PKCS12 Certificate (*.pfx)|*.pfx'
    InitialDir = '.'
    Options = [ofPathMustExist, ofEnableSizing]
    Left = 45
    Top = 64
  end
  object OpenDlgStorage: TOpenDialog
    Filter = 'PKCS7 format(*.p7b)|*.p7b|PKCS12 format (*.pfx)|*.pfx'
    Left = 24
    Top = 224
  end
  object SaveDlgStorage: TSaveDialog
    Filter = 'PKCS7 format(*.p7b)|*.p7b|PKCS12 format (*.pfx)|*.pfx'
    Left = 61
    Top = 312
  end
  object mmMain: TMainMenu
    Left = 208
    Top = 72
    object mmiStorage: TMenuItem
      Caption = 'Storage'
      object mmiNewMemStorage: TMenuItem
        Action = acNewMemStorage
      end
      object mmiNewFileStorage: TMenuItem
        Action = acNewFileStorage
      end
      object mmiSaveStorage: TMenuItem
        Action = acSaveStorage
      end
      object mmiSaveStorageAs: TMenuItem
        Action = acSaveStorageAs
      end
      object mmiSeparator1: TMenuItem
        Caption = '-'
        ImageIndex = 14
      end
      object mmiMountStorage: TMenuItem
        Action = acMountStorage
      end
      object mmiUnmountStorage: TMenuItem
        Action = acUnmountStorage
      end
      object mmiSeparator2: TMenuItem
        Caption = '-'
        ImageIndex = 14
      end
      object mmiImportFromWinStorage: TMenuItem
        Action = acImportFromWinStorage
      end
      object mmiExportToMemoryStorage: TMenuItem
        Action = acExportToMemoryStorage
      end
      object mmiSeparator3: TMenuItem
        Caption = '-'
      end
      object mmiExit: TMenuItem
        Caption = 'E&xit'
        OnClick = mmiExitClick
      end
    end
    object mmiCertificate: TMenuItem
      Caption = 'Certificate'
      object mmiNewCertificate: TMenuItem
        Action = acNewCertificate
      end
      object mmiLoadCertificate: TMenuItem
        Action = acLoadCertificate
      end
      object mmiSaveCertificate: TMenuItem
        Action = acSaveCertificate
      end
      object mmiRemoveCertificate: TMenuItem
        Action = acRemoveCertificate
      end
      object mmiTrusted: TMenuItem
        Action = acTrusted
      end
      object mmiSeparator4: TMenuItem
        Caption = '-'
      end
      object mmiCreateCSR: TMenuItem
        Action = acCreateCSR
      end
      object mmiSeparator5: TMenuItem
        Caption = '-'
      end
      object mmiValidate: TMenuItem
        Action = acValidate
      end
      object mmiLoadPrivateKey: TMenuItem
        Action = acLoadPrivateKey
      end
      object mmiSeparator6: TMenuItem
        Caption = '-'
      end
      object mmiMoveToStorage: TMenuItem
        Action = acMoveToStorage
      end
      object mmiCopyToStorage: TMenuItem
        Action = acCopyToStorage
      end
    end
    object mmiHelp: TMenuItem
      Caption = '&Help'
      object mmiAbout: TMenuItem
        Caption = '&About'
        OnClick = mmiAboutClick
      end
    end
  end
  object OpenDlgPvtKey: TOpenDialog
    Filter = 
      'Certificate Private Key (*.der,*.key)|*.der;*.key|PEM Encoded Ce' +
      'rtificate (*.pem)|*.pem'
    Left = 90
    Top = 400
  end
  object pmiMain: TPopupMenu
    Left = 288
    Top = 56
    object pmiNewMemoryStorage: TMenuItem
      Action = acNewMemStorage
    end
    object pmiNewFileStorage: TMenuItem
      Action = acNewFileStorage
    end
    object pmiSaveStorage: TMenuItem
      Action = acSaveStorage
    end
    object pmiSaveStorageAs: TMenuItem
      Action = acSaveStorageAs
    end
    object pmiTrusted: TMenuItem
      Action = acTrusted
    end
    object pmiSeparator1: TMenuItem
      Caption = '-'
    end
    object pmiMountStorage: TMenuItem
      Action = acMountStorage
    end
    object pmiUnmountStorage: TMenuItem
      Action = acUnmountStorage
    end
    object pmiSeparator2: TMenuItem
      Caption = '-'
    end
    object pmiImportFromWinStorage: TMenuItem
      Action = acImportFromWinStorage
    end
    object pmiExportToMemoryStorage: TMenuItem
      Action = acExportToMemoryStorage
    end
    object pmiSeparator3: TMenuItem
      Caption = '-'
    end
    object pmiNewCertificate: TMenuItem
      Action = acNewCertificate
    end
    object pmioLoadCertificate: TMenuItem
      Action = acLoadCertificate
    end
    object pmiSaveCertificate: TMenuItem
      Action = acSaveCertificate
    end
    object pmiRemoveCertificate: TMenuItem
      Action = acRemoveCertificate
    end
    object pmiSeparator4: TMenuItem
      Caption = '-'
    end
    object pmiCreateCSR: TMenuItem
      Action = acCreateCSR
    end
    object pmiSeparator5: TMenuItem
      Caption = '-'
    end
    object pmiValidate: TMenuItem
      Action = acValidate
    end
    object pmiLoadPrivateKey: TMenuItem
      Action = acLoadPrivateKey
    end
    object pmiSeparator6: TMenuItem
      Caption = '-'
    end
    object pmiMoveToStorage: TMenuItem
      Action = acMoveToStorage
    end
    object pmiCopyToStorage: TMenuItem
      Action = acCopyToStorage
    end
  end
  object alMain: TActionList
    Left = 184
    Top = 176
    object acNewMemStorage: TAction