sdimain.dfm

该软件是在DELPHI2007环境下开发的,是获取U盘的序列号的例子程序,已经使用过,非常好.

object SDIAppForm: TSDIAppForm
  Left = 197
  Top = 111
  Caption = 'SDI Application'
  ClientHeight = 209
  ClientWidth = 360
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 16
  object StatusBar: TStatusBar
    Left = 0
    Top = 190
    Width = 360
    Height = 19
    AutoHint = True
    Panels = <>
    SimplePanel = True
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 360
    Height = 30
    BorderWidth = 1
    Color = clBtnFace
    Images = ImageList1
    Indent = 5
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    Wrapable = False
    object ToolButton9: TToolButton
      Left = 5
      Top = 0
      Action = FileNew1
    end
    object ToolButton1: TToolButton
      Left = 28
      Top = 0
      Action = FileOpen1
    end
    object ToolButton2: TToolButton
      Left = 51
      Top = 0
      Action = FileSave1
    end
    object ToolButton3: TToolButton
      Left = 74
      Top = 0
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton4: TToolButton
      Left = 82
      Top = 0
      Action = EditCut1
    end
    object ToolButton5: TToolButton
      Left = 105
      Top = 0
      Action = EditCopy1
    end
    object ToolButton6: TToolButton
      Left = 128
      Top = 0
      Action = EditPaste1
    end
  end
  object BitBtn1: TBitBtn
    Left = 96
    Top = 56
    Width = 161
    Height = 65
    Caption = 'BitBtn1'
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 8
    Top = 152
    object File1: TMenuItem
      Caption = '&File'
      Hint = 'File related commands'
      object FileNewItem: TMenuItem
        Action = FileNew1
      end
      object FileOpenItem: TMenuItem
        Action = FileOpen1
      end
      object FileSaveItem: TMenuItem
        Action = FileSave1
      end
      object FileSaveAsItem: TMenuItem
        Action = FileSaveAs1
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object FileExitItem: TMenuItem
        Action = FileExit1
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      Hint = 'Edit commands'
      object CutItem: TMenuItem
        Action = EditCut1
      end
      object CopyItem: TMenuItem
        Action = EditCopy1
      end
      object PasteItem: TMenuItem
        Action = EditPaste1
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      Hint = 'Help topics'
      object HelpAboutItem: TMenuItem
        Action = HelpAbout1
      end
    end
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 40
    Top = 152
    object FileNew1: TAction
      Category = 'File'
      Caption = '&New'
      Hint = 'New|Create a new file'
      ImageIndex = 6
      ShortCut = 16462
      OnExecute = FileNew1Execute
    end
    object FileOpen1: TAction
      Category = 'File'
      Caption = '&Open'
      Hint = 'Open|Open a file'
      ImageIndex = 7
      ShortCut = 16463
      OnExecute = FileOpen1Execute
    end
    object FileSave1: TAction
      Category = 'File'
      Caption = '&Save'
      Hint = 'Save|Save current file'
      ImageIndex = 8
      ShortCut = 16467
      OnExecute = FileSave1Execute
    end
    object FileSaveAs1: TAction
      Category = 'File'
      Caption = 'Save &As...'
      Hint = 'Save As|Save current file with different name'
      OnExecute = FileSave1Execute
    end
    object FileExit1: TAction
      Category = 'File'
      Caption = 'E&xit'
      Hint = 'Exit|Exit application'
      OnExecute = FileExit1Execute
    end
    object EditCut1: TEditCut
      Category = 'Edit'
      Caption = 'Cu&t'
      Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
      ImageIndex = 0
      ShortCut = 16472
    end
    object EditCopy1: TEditCopy
      Category = 'Edit'
      Caption = '&Copy'
      Hint = 'Copy|Copies the selection and puts it on the Clipboard'
      ImageIndex = 1
      ShortCut = 16451
    end
    object EditPaste1: TEditPaste
      Category = 'Edit'
      Caption = '&Paste'
      Hint = 'Paste|Inserts Clipboard contents'
      ImageIndex = 2
      ShortCut = 16470
    end
    object HelpAbout1: TAction
      Category = 'Help'
      Caption = '&About...'
      Hint = 
        'About|Displays program information, version number, and copyrigh' +
        't'
      OnExecute = HelpAbout1Execute
    end
  end
  object ImageList1: TImageList
    Left = 72
    Top = 152
    Bitmap = {
      494C01010F001100040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001001000000000000020
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000010001000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000100018631000100000000000000000000000000000000000
      0000100010000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000001000186310001000100000000000000000000000000000000000
      1000100010000000000000000000000000000000000018631863186318631863
      1863186318631863000018630000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000010001863100010001000000000000000000000000000000000001000
      1000100000000000000000000000000000000000000000000000000000000000
      0000000000000000000000001863000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000100018631000100010000000000000000000000010421863FF7F10420000
      1000000000000000000000400000000000000000186318631863186318631863
      E07FE07FE07F1863186300000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000186318631863
      FF7F1042100010001000000000000000000000001042186318631863FF7F1042
      0000000000000000004000400000000000000000186318631863186318631863
      1042104210421863186300001863000000000000000000000000000000000000
      0000000000000000000000000000000000000000000010421863186318631863
      1863FF7F1042000000000000000000000000000018631863186318631863FF7F
      0000000000000040004000400040004000000000000000000000000000000000
      0000000000000000000000001863186300000000000000000000000000000000
      0000000000000000000000000000000000000000000018631863186318631863
      18631863FF7F00000000000000000000000000001863FF7FFF03186318631863
      0000000000000000004000400000000000400000186318631863186318631863
      1863186318631863000018630000186300000000000000000000000000000000
      0000000000000000000000000000000000000000186318631863186318631863
      18631863186318630000000000000000000000001042FF7FFF7F186318631042
      0000000000000000000000400000000000400000000000000000000000000000
      0000000000000000186300001863000000000000000000000000000000000000
      0000000000000000000000000000000000000000186318631863186318631863
      1863186318631863000000000000000000000000000010421863186310420000
      000000000000000000000000000000000040000000000000FF7FFF7FFF7FFF7F