unit2.dfm

delphi 写的一个窗口捕获程序

object Form2: TForm2
  Left = 207
  Top = 121
  Width = 814
  Height = 572
  Caption = #21160#20316#23450#20041
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 110
  TextHeight = 16
  object Splitter1: TSplitter
    Left = 249
    Top = 29
    Height = 513
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 806
    Height = 29
    ButtonWidth = 39
    Caption = 'ToolBar1'
    Images = Form1.ImageList2
    TabOrder = 3
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Hint = #20840#37096#23637#24320
      Caption = 'ToolButton1'
      ImageIndex = 1
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 39
      Top = 2
      Hint = #20840#37096#25910#32553
      Caption = 'ToolButton2'
      ImageIndex = 2
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 78
      Top = 2
      Caption = 'ToolButton3'
      ImageIndex = 3
    end
    object ToolButton4: TToolButton
      Left = 117
      Top = 2
      Caption = 'ToolButton4'
      ImageIndex = 4
      OnClick = ToolButton4Click
    end
  end
  object DBNavigator1: TDBNavigator
    Left = 250
    Top = 1
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 0
  end
  object TreeView1: TTreeView
    Left = 0
    Top = 29
    Width = 249
    Height = 513
    Align = alLeft
    Images = Form1.ImageList2
    Indent = 19
    ReadOnly = True
    TabOrder = 2
  end
  object DBGrid1: TDBGrid
    Left = 252
    Top = 29
    Width = 554
    Height = 513
    Align = alClient
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'id'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'winhwnd'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'winame'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'winclass'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'parenthwnd'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'prentname'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'parentclass'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'winanimate'
        PickList.Strings = (
          #25171#24320#31383#21475
          #20851#38381#31383#21475
          #24471#21040#21477#26564
          #31383#21475#32622#21069
          #36755#20837#23383#31526
          #27169#25311#25353#38190
          ''
          '')
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'animatesource'
        PickList.Strings = (
          '0')
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'animatesender'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'iteration'
        PickList.Strings = (
          '0'
          '1'
          '2'
          '3'
          '4'
          '5'
          '6')
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'waittime'
        PickList.Strings = (
          '0'
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10')
        Visible = True
      end>
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDataShape.1;Persist Security Info=False;Data Source=D' +
      ':\myprogram\delphi\capturewindow\capturewindow\wincap.mdb;Data P' +
      'rovider=Microsoft.Jet.OLEDB.4.0'
    LoginPrompt = False
    Provider = 'MSDataShape.1'
    Left = 712
    Top = 368
  end
  object ADODataSet1: TADODataSet
    Connection = ADOConnection1
    CommandText = 'animation'
    CommandType = cmdTable
    Parameters = <>
    Left = 736
    Top = 368
    object ADODataSet1id: TIntegerField
      DisplayLabel = #24207#21495
      FieldName = 'id'
    end
    object ADODataSet1name: TWideStringField
      CustomConstraint = 'name<>'#39#26032#21160#20316#39
      ConstraintErrorMessage = 'error'
      DisplayLabel = #21160#20316#21517#31216
      FieldName = 'name'
      Size = 50
    end
    object ADODataSet1winhwnd: TWideStringField
      DisplayLabel = #31383#21475#21477#26564
      FieldName = 'winhwnd'
      Size = 50
    end
    object ADODataSet1winame: TWideStringField
      DisplayLabel = #31383#21475#21517#31216
      FieldName = 'winame'
      Size = 50
    end
    object ADODataSet1winclass: TWideStringField
      DisplayLabel = #31383#21475#31867#22411
      FieldName = 'winclass'
      Size = 50
    end
    object ADODataSet1parenthwnd: TWideStringField
      DisplayLabel = #29238#21477#26564
      FieldName = 'parenthwnd'
      Size = 50
    end
    object ADODataSet1prentname: TWideStringField
      DisplayLabel = #29238#21517#31216
      FieldName = 'prentname'
      Size = 50
    end
    object ADODataSet1parentclass: TWideStringField
      DisplayLabel = #29238#31867#22411
      FieldName = 'parentclass'
      Size = 50
    end
    object ADODataSet1winanimate: TWideStringField
      DisplayLabel = #21160#20316
      FieldName = 'winanimate'
      Size = 50
    end
    object ADODataSet1animatesource: TWideStringField
      DisplayLabel = #21160#20316#20869#23481
      FieldName = 'animatesource'
      Size = 50
    end
    object ADODataSet1animatesender: TWideStringField
      DisplayLabel = #21160#20316#23545#35937
      FieldName = 'animatesender'
      Size = 50
    end
    object ADODataSet1iteration: TWideStringField
      DisplayLabel = #37325#22797#27425#25968
      FieldName = 'iteration'
      Size = 50
    end
    object ADODataSet1waittime: TWideStringField
      DisplayLabel = #38388#38548#26102#38388
      FieldName = 'waittime'
      Size = 50
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 760
    Top = 368
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=MSDataShape.1;Persist Security Info=False;Data Source=D' +
      ':\myprogram\delphi\capturewindow\capturewindow\wincap.mdb;Data P' +
      'rovider=Microsoft.Jet.OLEDB.4.0'
    Parameters = <>
    Left = 680
    Top = 368
  end
end