Delphi program to detect the existence of sound card

If you're doing some sort of multimedia player program, in order to improve the fault tolerance of the system, we must use some detection system functions, which detect whether the existence of a sound card is a problem, the following procedures to help you busy, first of all need to join the uses part of the MMSystem, and then detect the sound card when the form is created:

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
i := auxGetNumDevs();
if i<= then
label1.Caption :=系统没有发现声卡;
end;