并口编程

开发平台：
Delphi

Unit1.dfm：源码内容
							object Form1: TForm1
  Left = 268
  Top = 191
  Anchors = []
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #24182#21475#35843#35797
  ClientHeight = 273
  ClientWidth = 377
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 240
    Top = 8
    Width = 32
    Height = 13
    Caption = 'control'
  end
  object Label2: TLabel
    Left = 280
    Top = 8
    Width = 28
    Height = 13
    Caption = 'status'
  end
  object Label3: TLabel
    Left = 320
    Top = 8
    Width = 21
    Height = 13
    Caption = 'data'
  end
  object Label4: TLabel
    Left = 8
    Top = 240
    Width = 57
    Height = 17
    AutoSize = False
    Caption = #24182#21475#22522#22336
  end
  object Button1: TButton
    Left = 8
    Top = 168
    Width = 145
    Height = 25
    Caption = '&read'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 8
    Top = 200
    Width = 145
    Height = 25
    Caption = '&write'
    TabOrder = 1
    OnClick = Button2Click
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 65
    Height = 153
    Caption = 'control'
    TabOrder = 2
    object CheckBox1: TCheckBox
      Left = 8
      Top = 24
      Width = 97
      Height = 17
      Caption = 'Pin 1'
      TabOrder = 0
    end
    object CheckBox2: TCheckBox
      Left = 8
      Top = 48
      Width = 97
      Height = 17
      Caption = 'Pin 14'
      TabOrder = 1
    end
    object CheckBox3: TCheckBox
      Left = 8
      Top = 72
      Width = 97
      Height = 17
      Caption = 'Pin 16'
      TabOrder = 2
    end
    object CheckBox4: TCheckBox
      Left = 8
      Top = 96
      Width = 97
      Height = 17
      Caption = 'Pin 17'
      TabOrder = 3
    end
  end
  object GroupBox2: TGroupBox
    Left = 88
    Top = 8
    Width = 65
    Height = 153
    Caption = 'status'
    TabOrder = 3
    object CheckBox5: TCheckBox
      Left = 8
      Top = 24
      Width = 97
      Height = 17
      Caption = 'Pin 10'
      Enabled = False
      TabOrder = 0
    end
    object CheckBox6: TCheckBox
      Left = 8
      Top = 48
      Width = 97
      Height = 17
      Caption = 'Pin 11'
      Enabled = False
      TabOrder = 1
    end
    object CheckBox7: TCheckBox
      Left = 8
      Top = 72
      Width = 97
      Height = 17
      Caption = 'Pin 12'
      Enabled = False
      TabOrder = 2
    end
    object CheckBox8: TCheckBox
      Left = 8
      Top = 96
      Width = 97
      Height = 17
      Caption = 'Pin 13'
      Enabled = False
      TabOrder = 3
    end
    object CheckBox9: TCheckBox
      Left = 8
      Top = 120
      Width = 97
      Height = 17
      Caption = 'Pin 15'
      Enabled = False
      TabOrder = 4
    end
  end
  object GroupBox3: TGroupBox
    Left = 168
    Top = 8
    Width = 65
    Height = 217
    Caption = 'data'
    TabOrder = 4
    object CheckBox10: TCheckBox
      Left = 8
      Top = 24
      Width = 97
      Height = 17
      Caption = 'Pin 2'
      TabOrder = 0
    end
    object CheckBox11: TCheckBox
      Left = 8
      Top = 48
      Width = 97
      Height = 17
      Caption = 'Pin 3'
      TabOrder = 1
    end
    object CheckBox12: TCheckBox
      Left = 8
      Top = 72
      Width = 97
      Height = 17
      Caption = 'Pin 4'
      TabOrder = 2
    end
    object CheckBox13: TCheckBox
      Left = 8
      Top = 96
      Width = 97
      Height = 17
      Caption = 'Pin 5'
      TabOrder = 3
    end
    object CheckBox14: TCheckBox
      Left = 8
      Top = 120
      Width = 97
      Height = 17
      Caption = 'Pin 6'
      TabOrder = 4
    end
    object CheckBox15: TCheckBox
      Left = 8
      Top = 144
      Width = 97
      Height = 17
      Caption = 'Pin 7'
      TabOrder = 5
    end
    object CheckBox16: TCheckBox
      Left = 8
      Top = 168
      Width = 97
      Height = 17
      Caption = 'Pin 8'
      TabOrder = 6
    end
    object CheckBox17: TCheckBox
      Left = 8
      Top = 192
      Width = 97
      Height = 17
      Caption = 'Pin 9'
      TabOrder = 7
    end
  end
  object Memo1: TMemo
    Left = 240
    Top = 24
    Width = 129
    Height = 201
    Lines.Strings = (
      'Memo1')
    ScrollBars = ssVertical
    TabOrder = 5
    OnDblClick = Memo1DblClick
  end
  object ComboBox1: TComboBox
    Left = 72
    Top = 240
    Width = 81
    Height = 21
    ItemHeight = 13
    MaxLength = 5
    TabOrder = 6
    Text = '0x378'
    OnKeyPress = ComboBox1KeyPress
    Items.Strings = (
      '0x378'
      '0x278')
  end
  object Button3: TButton
    Left = 168
    Top = 232
    Width = 67
    Height = 33
    Caption = #26356#25913'&E'
    TabOrder = 7
    OnClick = Button3Click
  end
  object XPManifest1: TXPManifest
    Left = 248
    Top = 240
  end
end

						