unit1.dfm

多线程文件搜索源程序

object Form1: TForm1
  Left = 174
  Top = 127
  Width = 497
  Height = 365
  Caption = '基于线程的文件搜索程序'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7CCCCFFFFFFFFFFFCFFFFFFFFFFFFFFCC
    CCCCCCFFFFFFFFCCFFFFFFFFFFFFFFCCCCCCCCCCFFFFFFCCCFFFFFFFFFFFFCCC
    CCCCCCCCCFFFFCCCCFFFFFFFFFFFFCCCCCCCCCCCCCFFFCCCCCFFFFFFFFFFFCCC
    CCCCFFFFFCFF7CCCCCFFFFFFFFFFFCCCCCCFFFFFFFFFCCCCCCCFFFFFFFFFFCCC
    CCCCFFFFFFF7CCCCCCCFFFFFFFFFFFCCCCCCFFFFFFFCCCCCCCCCFFFFFFFFFFCC
    CCCCCFFFFFFCCCCCCCCCFFFFFFFFFFCCCCCCCCFFFFFFCCCCCCCFFFFFFFFFFFFC
    CCCCCCFFFFFFCCCCCCFFFFFFFFFFFFFCCCCCCCCFFFFF7CCCCCFFFFFFFFFFFFFF
    CCCCCCCCFFFFFCCCCFF7FFFFFFFFFFFFFCCCCCCCCFFFF7CCCFF7CFFFFFFFFFFF
    FFCCCCCCCCFFFFCCFFFFCCFFFFFFFFFFFFFCCCCCCCCCFFFCFFFFFCCCFFFFFFFF
    FFFFCCCCCCCCFFFFFFFFFCCCCFFFFFFFFFFFFCCCCCCCCFFFFFFFFFCCCCFFFFFF
    FFFFFFCCCCCCCCCCCFFFFFCCCCFFFFFFFFFFFFFCCCCCCCCCCCFFFFCCCCCFFFFF
    FFFFFFFFCCCCCCCCCCCCCCCCCCCFFFFFFFFFFFFFFFCCCCCCCCCCCCCCCCCFFFFF
    FFFFFFFFFFFCCCCCCCCCCCCCCCFFFFFFFFFFFFFFFFFFFCCCCCCCCCCCCCFFFFFF
    FFFFFFFFFFFFFFFCCCCCCCCCCFFFFFFFFFFFFFFFFFFFFFFFFFCCCCCCFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 16
    Top = 8
    Width = 353
    Height = 169
    Caption = '查找范围及条件'
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 32
      Width = 52
      Height = 13
      Caption = '文件类型'
    end
    object Label2: TLabel
      Left = 16
      Top = 64
      Width = 39
      Height = 13
      Caption = '文件夹'
    end
    object Label3: TLabel
      Left = 8
      Top = 96
      Width = 52
      Height = 13
      Caption = '包含文字'
    end
    object ComboBox1: TComboBox
      Left = 64
      Top = 24
      Width = 169
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Items.Strings = (
        '*.htm'
        '*.html'
        '*.txt'
        '*.cpp'
        '*.h'
        '*.pas'
        '*.hpp'
        '*.*')
    end
    object Edit1: TEdit
      Left = 64
      Top = 56
      Width = 233
      Height = 21
      TabOrder = 1
    end
    object Memo1: TMemo
      Left = 8
      Top = 112
      Width = 329
      Height = 49
      TabOrder = 2
    end
    object Button1: TButton
      Left = 304
      Top = 56
      Width = 41
      Height = 25
      Caption = '浏览'
      TabOrder = 3
      OnClick = Button1Click
    end
    object CheckBox1: TCheckBox
      Left = 184
      Top = 80
      Width = 105
      Height = 25
      Caption = '包含子文件夹'
      TabOrder = 4
    end
  end
  object Button2: TButton
    Left = 392
    Top = 24
    Width = 81
    Height = 25
    Caption = '搜索'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 392
    Top = 64
    Width = 81
    Height = 25
    Caption = '停止'
    TabOrder = 2
    OnClick = Button3Click
  end
  object ListBox1: TListBox
    Left = 16
    Top = 184
    Width = 465
    Height = 145
    ItemHeight = 13
    TabOrder = 3
    OnDblClick = ListBox1DblClick
  end
  object PBFolderDialog1: TPBFolderDialog
    Flags = [ShowPath]
    NewFolderVisible = True
    NewFolderEnabled = True
    LabelCaptions.Strings = (
      'Default=Current folder:'
      '0009=Current folder:'
      '0406=Valgt mappe:'
      '0407=Ausgew鋒lter Ordner:'
      '0409=Current folder:'
      '0410=Cartella selezionata:'
      '0413=Huidige map'
      '0807=Ausgew鋒lter Ordner:'
      '0809=Current folder:'
      '0810=Cartella selezionata:'
      '0C07=Ausgew鋒lter Ordner:'
      '0C09=Current folder:'
      '1007=Ausgew鋒lter Ordner:'
      '1009=Current folder:'
      '1407=Ausgew鋒lter Ordner:'
      '1409=Current folder:'
      '1809=Current folder:'
      '1C09=Current folder:'
      '2009=Current folder:'
      '2809=Current folder:'
      '2C09=Current folder:')
    NewFolderCaptions.Strings = (
      'Default=New folder'
      '0009=New folder'
      '0406=Ny mappe'
      '0407=Neuer Ordner'
      '0409=New folder'
      '0410=Nuova Cartella'
      '0413=Nieuwe map'
      '0807=Neuer Ordner'
      '0809=New folder'
      '0810=Nuova Cartella'
      '0C07=Neuer Ordner'
      '0C09=New folder'
      '1007=Neuer Ordner'
      '1009=New folder'
      '1407=Neuer Ordner'
      '1409=New folder'
      '1809=New folder'
      '1C09=New folder'
      '2009=New folder'
      '2809=New folder'
      '2C09=New folder')
    Version = '1.40.00.00'
    Left = 384
    Top = 96
  end
end