unit1.dfm

一个用DELPHI编写的DES加密接密原代码

object Form1: TForm1
  Left = 267
  Top = 150
  Width = 698
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 321
    Top = 57
    Width = 1
    Height = 199
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 690
    Height = 57
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 160
      Top = 24
      Width = 193
      Height = 13
      Caption = '     '#27426#36814#20351#29992'DES'#21152#23494#35299#23494#31995#32479'            '
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 57
    Width = 321
    Height = 199
    Align = alLeft
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 48
      Top = 80
      Width = 73
      Height = 41
      Caption = #25171#24320'('#21152#23494')'
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 160
      Top = 80
      Width = 73
      Height = 41
      Caption = #21152#23494
      OnClick = SpeedButton2Click
    end
    object Edit1: TEdit
      Left = 48
      Top = 24
      Width = 209
      Height = 21
      TabOrder = 0
    end
  end
  object Panel3: TPanel
    Left = 322
    Top = 57
    Width = 368
    Height = 199
    Align = alClient
    TabOrder = 2
    object SpeedButton4: TSpeedButton
      Left = 64
      Top = 80
      Width = 73
      Height = 41
      Caption = #25171#24320'('#35299#23494')'
      OnClick = SpeedButton4Click
    end
    object SpeedButton3: TSpeedButton
      Left = 176
      Top = 80
      Width = 81
      Height = 41
      Caption = #35299#23494
      OnClick = SpeedButton3Click
    end
    object Edit2: TEdit
      Left = 56
      Top = 16
      Width = 201
      Height = 21
      TabOrder = 0
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 256
    Width = 690
    Height = 145
    Align = alBottom
    Caption = 'Panel4'
    TabOrder = 3
    object Memo1: TMemo
      Left = 1
      Top = 1
      Width = 688
      Height = 143
      Align = alClient
      Lines.Strings = (
        '')
      TabOrder = 0
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 401
    Width = 690
    Height = 33
    Panels = <>
  end
  object OpenDialog1: TOpenDialog
    Filter = #25991#26412#25991#20214#65288'*.txt*.doc'#65289'|*.txt;*.doc'
    InitialDir = 'F:\zuoye'
    Left = 264
    Top = 72
  end
  object SaveDialog1: TSaveDialog
    Filter = #21152#23494#25991#20214#65288'*.des'#65289'|*.des'
    InitialDir = 'F:\zuoye'
    Left = 264
    Top = 120
  end
  object OpenDialog2: TOpenDialog
    Filter = #21152#23494#25991#20214#65288'*.des'#65289'|*.des'
    InitialDir = 'F:/zuoye'
    Left = 648
    Top = 88
  end
  object SaveDialog2: TSaveDialog
    Filter = #25991#26412#25991#20214#65288'*.txt*.doc'#65289'|*.txt;*.doc'
    Left = 648
    Top = 120
  end
  object Timer1: TTimer
    Interval = 10
    OnTimer = Timer1Timer
    Left = 584
    Top = 8
  end
  object MainMenu1: TMainMenu
    Left = 208
    Top = 201
    object N1: TMenuItem
      Caption = #35828#26126
      object N2: TMenuItem
        Caption = #36719#20214#20171#32461
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #20351#29992#26041#27861
        OnClick = N3Click
      end
    end
  end
end