unitfrmmain.~dfm

精彩编程百例26～50 其中有 控制任务栏 windows底层任务控制 屏保预览 特效窗体 文件关联操作等待！

object Form1: TForm1
  Left = 400
  Top = 163
  Width = 389
  Height = 327
  Caption = #25991#20214#30340#38145#23450#20445#25252
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 56
    Top = 24
    Width = 116
    Height = 20
    Caption = #30830#23450#25991#20214#20301#32622'     '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 232
    Top = 88
    Width = 105
    Height = 33
    Caption = #38145#23450
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object DriveComboBox1: TDriveComboBox
    Left = 56
    Top = 48
    Width = 145
    Height = 19
    DirList = DirectoryListBox1
    TabOrder = 1
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 56
    Top = 64
    Width = 145
    Height = 97
    FileList = FileListBox1
    ItemHeight = 16
    TabOrder = 2
  end
  object FileListBox1: TFileListBox
    Left = 56
    Top = 160
    Width = 145
    Height = 97
    ItemHeight = 13
    TabOrder = 3
  end
  object Button2: TButton
    Left = 232
    Top = 168
    Width = 105
    Height = 33
    Caption = #36864#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Button2Click
  end
end