fmmain.dfm

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

object Form1: TForm1
  Left = 127
  Top = 144
  Width = 728
  Height = 393
  Caption = 'Interface Walker'
  Color = clBtnFace
  Font.Charset = CHINESEBIG5_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #26032#32048#26126#39636
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 16
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 289
    Height = 297
    Caption = 'GroupBox1'
    TabOrder = 0
    object lbClasses: TListBox
      Left = 2
      Top = 18
      Width = 285
      Height = 277
      Align = alClient
      ItemHeight = 16
      TabOrder = 0
      OnDblClick = lbClassesDblClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 296
    Top = 0
    Width = 417
    Height = 297
    Caption = 'GroupBox1'
    TabOrder = 1
    object lbInterfaces: TListBox
      Left = 2
      Top = 18
      Width = 413
      Height = 277
      Align = alClient
      ItemHeight = 16
      Sorted = True
      TabOrder = 0
    end
  end
  object bbtnCheck: TBitBtn
    Left = 136
    Top = 304
    Width = 177
    Height = 49
    Caption = 'Find Interfaces'
    TabOrder = 2
    OnClick = bbtnCheckClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      555555555555555555555555555555555555555555FF55555555555559055555
      55555555577FF5555555555599905555555555557777F5555555555599905555
      555555557777FF5555555559999905555555555777777F555555559999990555
      5555557777777FF5555557990599905555555777757777F55555790555599055
      55557775555777FF5555555555599905555555555557777F5555555555559905
      555555555555777FF5555555555559905555555555555777FF55555555555579
      05555555555555777FF5555555555557905555555555555777FF555555555555
      5990555555555555577755555555555555555555555555555555}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 320
    Top = 304
    Width = 177
    Height = 49
    TabOrder = 3
    Kind = bkClose
  end
end