Delphi获取显卡和系统各种音频设备的代码实现

转载 http://www.codefans.net/articles/396.shtml

Delphi获取不同的声音播放设备，这些设备包括：Aux设备、Wave播放设备、录音设备、MIDI音乐播放、MIDI音乐输入设备、游戏杆设备、混合设备，同时也可获取到显卡硬件信息。如果你需要使用Delphi获取上述任一个系统设备的话，你不妨参考下这个代码，运行截图：

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,mmsystem;
type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var  dd: TDisplayDevice;
begin
 dd.cb := sizeof(dd);
 ListBox1.Clear; //清空列表框
 if EnumDisplayDevices(nil, 0, dd, 0)=false Then //获取当前使用的显卡
    Listbox1.Items.Add('没有发现显卡设备信息')
 Else
    Listbox1.Items.Add('显卡------'+dd.DeviceString);
 end;
procedure TForm1.Button2Click(Sender: TObject);
Var aux,waveout,wavein,midiout,midiin,mixer:integer;
    auxcap:AUXCAPS;
    waveoutcap:WAVEOUTCAPS;
    waveincap:WAVEINCAPS;
    midioutcap:MIDIOUTCAPS;
    midiincap:MIDIINCAPS;
    joycap:JOYCAPS;
    mixercap:MIXERCAPS;
begin
  aux:=Trunc(AuxGetNumDevs);
  waveout:=Trunc(WaveOutGetNumDevs);
  wavein:=Trunc(WaveInGetNumDevs);
  midiout:=Trunc(MidiOutGetNumDevs);
  midiin:=Trunc(MidiInGetNumDevs);
  mixer:=Trunc(MixerGetNumDevs);
  ListBox1.Clear;    //清空列表框
 //获取Aux设备
  if aux=0 Then
   ListBox1.Items.Add('没有发现AUX设备')
  Else
   Begin
   AuxGetDevCaps(0,@auxcap,sizeof(AUXCAPS));
   ListBox1.Items.Add('AUX设备---------'+auxcap.szPname);
   end;
 //获取Wave播放设备
  if waveout=0 Then
   ListBox1.Items.Add('没有发现Wave播放设备')
  Else
   Begin
   WaveOutGetDevCaps(0,@waveoutcap,sizeof(WAVEOUTCAPS));
   ListBox1.Items.Add('Wave播放设备---------'+waveoutcap.szPname);
   end;
 //获取录音设备
 if wavein=0 Then
   ListBox1.Items.Add('没有发现录音设备')
  Else
   Begin
   WaveInGetDevCaps(0,@waveincap,sizeof(WAVEINCAPS));
   ListBox1.Items.Add('当前录音设备-----------'+waveincap.szPname);
   end;
 //获取MIDI音乐播放
  if midiout=0 Then
   ListBox1.Items.Add('没有发现MIDI音乐播放设备')
  Else
   Begin
   MidiOutGetDevCaps(0,@midioutcap,sizeof(MIDIOUTCAPS));
   ListBox1.Items.Add('MIDI音乐播放设备----'+midioutcap.szPname);
   end;
 //获取MIDI音乐输入设备
  if midiin=0 Then
   ListBox1.Items.Add('没有发现MIDI音乐输入设备')
  Else
   Begin
   MidiInGetDevCaps(0,@midiincap,sizeof(MIDIINCAPS));
   ListBox1.Items.Add('MIDI音乐输入设备----'+midiincap.szPname);
   end;
//获取游戏杆设备
 JoyGetDevCaps(0,@joycap,sizeof(JOYCAPS));
   if joycap.szPname='' Then
   ListBox1.Items.Add('没有发现游戏操纵杆设备')
   Else
   ListBox1.Items.Add('游戏操纵杆设备----'+joycap.szPname);
//获取混合设备
 if mixer=0 Then
   ListBox1.Items.Add('没有发现混合设备')
  Else
   Begin
   MixerGetDevCaps(0,@mixercap,sizeof(MIXERCAPS));
   ListBox1.Items.Add('混合设备----'+mixercap.szPname);
   end;
end;
End.