fmmain.dfm

多数代码可以直接在Delphi6和Delphi7环境下运行。部分涉及.NET技术内容的代码

object Form1: TForm1
  Left = 256
  Top = 183
  Width = 509
  Height = 321
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = CHINESEBIG5_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #26032#32048#26126#39636
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 32
    Top = 72
    Width = 115
    Height = 16
    Caption = 'CreateCOMObject'
  end
  object Label2: TLabel
    Left = 32
    Top = 128
    Width = 85
    Height = 16
    Caption = 'IClassFactory'
  end
  object Edit1: TEdit
    Left = 32
    Top = 8
    Width = 409
    Height = 24
    TabOrder = 0
    Text = 'Edit1'
  end
  object Button1: TButton
    Left = 144
    Top = 184
    Width = 177
    Height = 41
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Edit2: TEdit
    Left = 32
    Top = 40
    Width = 409
    Height = 24
    TabOrder = 2
    Text = 'Edit1'
  end
  object btnCoCreate: TButton
    Left = 24
    Top = 232
    Width = 209
    Height = 49
    Caption = '1000 COMs'
    TabOrder = 3
    OnClick = btnCoCreateClick
  end
  object btnFactory: TButton
    Left = 248
    Top = 232
    Width = 225
    Height = 49
    Caption = '1000 COMs By Factory'
    TabOrder = 4
    OnClick = btnFactoryClick
  end
  object Edit3: TEdit
    Left = 32
    Top = 96
    Width = 409
    Height = 24
    TabOrder = 5
    Text = 'Edit1'
  end
  object Edit4: TEdit
    Left = 32
    Top = 152
    Width = 409
    Height = 24
    TabOrder = 6
    Text = 'Edit1'
  end
end