unit1.dfm

多线程文件搜索源程序

object Form1: TForm1
  Left = 195
  Top = 106
  Width = 544
  Height = 391
  Caption = '网页中广告删除程序'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  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 = 16
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 42
    Height = 16
    Caption = ' 文件夹'
  end
  object Label2: TLabel
    Left = 8
    Top = 48
    Width = 52
    Height = 16
    Caption = '包含文字'
  end
  object Label3: TLabel
    Left = 8
    Top = 144
    Width = 52
    Height = 16
    Caption = '匹配文件'
  end
  object Label4: TLabel
    Left = 8
    Top = 280
    Width = 3
    Height = 16
  end
  object Memo1: TMemo
    Left = 64
    Top = 40
    Width = 449
    Height = 89
    Lines.Strings = (
      '<!-- Spidersoft WebZIP Banner Ad Insert -->'
      
        '<!-- For removal instructions see:  http://www.spidersoft.com/we' +
        'bzip/help/noads.asp  -->'
      ''
      '<SCRIPT FOR=window EVENT=onload LANGUAGE="JScript">'
      '  initAd();'
      '</SCRIPT>'
      ''
      '<script language="JScript">'
      '<!--'
      ''
      'function initAd() {'
      '  document.all.AdLayer.style.posTop = -200;'
      '  document.all.AdLayer.style.visibility = '#39'visible'#39
      '  MoveLayer('#39'AdLayer'#39');'
      '}'
      ''
      'function MoveLayer(layerName) {'
      '  var x = 10;'
      '  var y = 10;'
      
        '  var diff = (document.body.scrollTop + y - document.all.AdLayer' +
        '.style.posTop)*.40;'
      '  var y = document.body.scrollTop + y - diff;'
      '  eval("document.all." + layerName + ".style.posTop =  y");'
      '  eval("document.all." + layerName + ".style.posLeft = x");'
      '  setTimeout("MoveLayer('#39'AdLayer'#39');", 60);'
      '}'
      ''
      'if (navigator.onLine){'
      
        '  document.write("<div bgcolor=#000000 style='#39'height=70px;'#39'></di' +
        'v>");'
      
        '  document.write("<div id=AdLayer style='#39'position:absolute; widt' +
        'h:100%; height:80px; z-index:20; visibility:hidden;'#39'>");'
      
        '  document.write("<IFRAME SRC='#39'http://www.spidersoft.com/ads/bwz' +
        '468_60.htm'#39' width=100% height=60 marginwidth=0 marginheight=0 hs' +
        'pace=0 vspace=0 frameborder=0 scrolling=no></IFRAME>");'
      '  document.write("</div>");'
      '}'
      ' //-->'
      '</script>'
      ''
      '<!-- /Spidersoft WebZIP Banner Ad Insert -->')
    ScrollBars = ssVertical
    TabOrder = 0
    WordWrap = False
  end
  object Button1: TButton
    Left = 8
    Top = 312
    Width = 177
    Height = 33
    Caption = '查找含有包含文字的文件'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 64
    Top = 16
    Width = 289
    Height = 24
    TabOrder = 2
    Text = 'C:\Windows\Desktop\'
  end
  object Memo2: TMemo
    Left = 64
    Top = 144
    Width = 449
    Height = 161
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 3
    WordWrap = False
  end
  object Button2: TButton
    Left = 208
    Top = 312
    Width = 169
    Height = 33
    Caption = '从文件删除包含文字'
    TabOrder = 4
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 392
    Top = 312
    Width = 129
    Height = 33
    Caption = '退  出'
    TabOrder = 5
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 376
    Top = 8
    Width = 57
    Height = 25
    Caption = '浏览'
    TabOrder = 6
    OnClick = Button4Click
  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 = 496
    Top = 8
  end
end