audiodev.dfm

delphi下的声音记录源程序

object FormAudioDevices: TFormAudioDevices
  Left = 192
  Top = 107
  Width = 239
  Height = 292
  Caption = 'Select Audio Devices'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 217
    Height = 89
    Caption = 'Play to this device:'
    TabOrder = 0
    object ComboWaveOutputDevice: TComboBox
      Left = 8
      Top = 24
      Width = 201
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      OnChange = ComboWaveOutputDeviceChange
    end
    object CommandOutCaps: TButton
      Left = 120
      Top = 53
      Width = 88
      Height = 25
      Caption = 'Ca&pabilities'
      TabOrder = 1
      OnClick = CommandOutCapsClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 128
    Width = 217
    Height = 89
    Caption = 'Record from this device:'
    TabOrder = 1
    object ComboWaveInputDevice: TComboBox
      Left = 8
      Top = 24
      Width = 201
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      OnChange = ComboWaveInputDeviceChange
    end
    object CommandInCaps: TButton
      Left = 120
      Top = 54
      Width = 88
      Height = 25
      Caption = '&Capabilities'
      TabOrder = 1
      OnClick = CommandInCapsClick
    end
  end
  object CommandOk: TButton
    Left = 72
    Top = 230
    Width = 88
    Height = 25
    Caption = '&Ok'
    TabOrder = 2
    OnClick = CommandOkClick
  end
end