getapass.dfm

这是本人使用Borland Delphi 6编写的提取Microsoft Office Access 2007数据库密码及版本号的源码,已经经过测试请放心下载使用.

object PassForm: TPassForm
  Left = 175
  Top = 89
  Width = 802
  Height = 589
  Hint = '?'#37324#26159#20462#25913#31995'?'#30340#26085#26399#21644'??'#31383#21475
  Caption = 'ACCESS ?'#25454'?'#23494'?'#31649#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 0
    Top = 262
    Width = 794
    Height = 5
    Cursor = crVSplit
    Align = alTop
  end
  object ListView1: TListView
    Left = 0
    Top = 52
    Width = 794
    Height = 210
    Align = alTop
    Columns = <
      item
        AutoSize = True
        Caption = #25976#25454#24235#21517#31281
      end
      item
        Alignment = taCenter
        AutoSize = True
        Caption = #25976#25454#24235#29256#26412
      end
      item
        Alignment = taCenter
        AutoSize = True
        Caption = #25976#25454#24235#23494#30908
      end
      item
        Alignment = taCenter
        AutoSize = True
        Caption = #24314#31435#26178#38291
      end>
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    GridLines = True
    HideSelection = False
    HotTrack = True
    ReadOnly = True
    RowSelect = True
    ParentFont = False
    SmallImages = ImageList1
    SortType = stText
    TabOrder = 0
    ViewStyle = vsReport
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 541
    Width = 794
    Height = 21
    Panels = <
      item
        Alignment = taCenter
        Text = #22914#38656#35201' Delphi '#25216#34899#25903#25345#65292#27489#36814#32879#31995' EMail:[e-mail] '#38651#35441#65306'0757-3983419'
        Width = 50
      end>
  end
  object Memo1: TMemo
    Left = 0
    Top = 267
    Width = 794
    Height = 274
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 794
    Height = 52
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 24
        Text = 'MDB-'#30456#38364#25805#20316#65306
        Width = 790
      end
      item
        Control = Edit1
        ImageIndex = -1
        MinHeight = 22
        Text = #25976#25454#24235#25991#20214#36335#24465':'
        Width = 409
      end
      item
        Break = False
        Control = Pick1
        ImageIndex = -1
        MinHeight = 22
        Text = #31995#32113#26178#38291':'
        Width = 379
      end>
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    DesignSize = (
      790
      48)
    object ToolBar1: TToolBar
      Left = 97
      Top = 0
      Width = 689
      Height = 24
      AutoSize = True
      ButtonHeight = 20
      ButtonWidth = 96
      Caption = 'ToolBar1'
      EdgeBorders = [ebTop, ebBottom]
      Flat = True
      List = True
      ShowCaptions = True
      TabOrder = 0
      object cmdSelectMDBDir: TToolButton
        Left = 0
        Top = 0
        Caption = #36984#25799#30446#37636'(&D)'
        ImageIndex = 3
        OnClick = cmdSelectMDBDir_Click
      end
      object cmdGetAllPass: TToolButton
        Left = 96
        Top = 0
        Caption = #25552#21462#23494#30908'(&S)'
        ImageIndex = 1
        OnClick = cmdGetAllPass_Click
      end
      object cmdCreateMDB: TToolButton
        Left = 192
        Top = 0
        Caption = #26032#24314#25976#25454#24235'(&M)'
        ImageIndex = 2
        OnClick = cmdCreateMDB_Click
      end
      object cmdSetCurTime: TToolButton
        Left = 288
        Top = 0
        Caption = #20462#25913#26178#38291'(&T)'
        ImageIndex = 0
        OnClick = cmdSetCurTime_Click
      end
      object cmdCloseForm: TToolButton
        Left = 384
        Top = 0
        Caption = #38364#38281#31383#21475'(&X)'
        ImageIndex = 5
        OnClick = cmdCloseForm_Click
      end
    end
    object Edit1: TEdit
      Left = 103
      Top = 26
      Width = 302
      Height = 22
      Hint = '??'#21015#20986#25351#23450#30446'?'#25152#26377' MDB '#25991#20214#23494'?'
      Anchors = [akLeft, akTop, akRight]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Text = 'D:\'
      OnDblClick = cmdGetAllPass_Click
      OnKeyPress = Edit1KeyPress
    end
    object Pick1: TDateTimePicker
      Left = 478
      Top = 26