ueject.dfm

设备管理代码,可以把所有硬件都进行管理.

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 400
  Height = 400
  Caption = 'Enable, Disable and Eject Devices'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object TreeView: TTreeView
    Left = 0
    Top = 0
    Width = 392
    Height = 354
    Align = alClient
    Indent = 19
    ReadOnly = True
    TabOrder = 0
    OnChange = TreeViewChange
    OnDblClick = TreeViewDblClick
  end
  object ImageList: TImageList
    DrawingStyle = dsTransparent
    ShareImages = True
    Left = 8
    Top = 320
  end
  object MainMenu: TMainMenu
    Left = 40
    Top = 320
    object mFile: TMenuItem
      Caption = '&File'
      object mExit: TMenuItem
        Caption = '&Exit'
        OnClick = mExitClick
      end
    end
    object mChange: TMenuItem
      Caption = '&Change'
      object mEnableDevice: TMenuItem
        Caption = '&Enable Device'
        Enabled = False
        OnClick = ChangeEnableDevice
      end
      object mDisableDevice: TMenuItem
        Caption = '&Disable Device'
        Enabled = False
        OnClick = ChangeDisableDevice
      end
      object mRemoveDevice: TMenuItem
        Caption = 'E&ject Device'
        Enabled = False
        OnClick = EjectDevice
      end
    end
    object mOptions: TMenuItem
      Caption = '&Options'
      object mRefreshDisplay: TMenuItem
        Caption = 'Refresh Display'
        OnClick = mRefreshDisplayClick
      end
      object mN: TMenuItem
        Caption = '-'
      end
      object mShowHiddenDevices: TMenuItem
        Caption = '&Show hidden devices'
        OnClick = mShowHiddenDevicesClick
      end
    end
  end
end